Регистрация
kirillmich16
18.05.2020 20:17
Информатика
Есть ответ 👍

Строитель может использовать табличный процессор

177
377
Посмотреть ответы 1

Ответы на вопрос:

nurmuh4med
nurmuh4med
4,5(25 оценок)

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. 

Популярно: Информатика