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

mhey3303 mhey3303    2   04.07.2019 14:50    2

Ответы
partsik95 partsik95  28.07.2020 08:27
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика