Создать массив из 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.
begin
for i :=1 to 20 do
begin
a[i]:=random(-10,30);
write(a[i],'...');
end;
end.