Срочно! Помогите! Написать программу в турбо паскале Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и определить,

+ 0 -

Lera1375

15 янв. 2015 г., 18:18:11 (9 лет назад)

var 

  a: array [1..10] of integer;  //Массив из 10 целочисленных элементов

  i: integer;

begin

  write('Исходный массив: ');

  for i:= 1 to 10 do  {Заполняем массив случайными числами от 0 до 4 и печатаем его}

  begin

    a[i]:= random(4);

    write(a[i], '  ');

  end;

  writeln;  //Перевод на новую строку

  write('Одинаковые соседние элементы:  ');

  for i:= 1 to 9 do  //Печатаем одинаковые соседние элементы

    if a[i] = a[i + 1] then write('a[', i, '] = a[', i + 1, '],  ');

  writeln;  {Перевод на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.