Создать массив из 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

Галька

7 января, 06:56

+3

Ответы (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.