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

ConstN = 10;VarA:array[1..N]of integer;i:integer;BeginFor 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],' ') EndEnd.