Question

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

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.