Создать массив из 20 чисел случайным образом числом из промежутка от - 10 дл 30 вывести элемент массива в строку через 4 позиции

вот что получилось

program e1; var A : array [1 ... 20] of integer; i:integer; begin for i : = 1 to 20 do A[i]: = - 10 + random (41); for i : = 1 to 20 do write (A[i],' ... '); end.

Question

Юраша

2 января, 23:21

+2

Ответы (1)

Знаешь ответ?

Петюся · Answer 1

Var A : array [1 ... 20] of integer; i:integer;

begin

for i : = 1 to 20 do

begin

a[i]:=random (-10,30);

write (a[i],' ... ');

end;

end.