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

Question

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

Answer 1

Const
N = 10;
Var
A:array[1..N]of integer;
i:integer;
Begin
For i:= 1 to N do
 Begin
 A[i]:=random(21)-10;
 Write(A[i],' ')
 End;
WriteLn;
For i:=1 to N do
 Begin
 A[i]:=A[i]+1;
 Write(A[i],' ')
 End
End.