Увеличить каждый элемент массива на 1 и вывести на экран - Pascal ABC

Формулировка задачи:

Заполнить массив из 10 элементов случайными числами из интервала от -10 до 10, вывести на экран, затем увеличить каждый элемент массива на 1 и повторно вывести на экран.

Код к задаче: «Увеличить каждый элемент массива на 1 и вывести на экран - Pascal ABC»

textual
randomize;
for i:=1 to 10 do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
for i:=1 to 10 do
 begin
  a[i]:=a[i]+1;
  write(a[i]:4);
 end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы