Question

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

Answer 1

const n=20;

var a:array[1..n] of integer;

i:integer;

begin

for i:=1 to n do

begin

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

write(a[i]:4);

end;

end.

Пример:

  7   8  12  16   8  16   6  16   3   9  10   1   3  -1  17  -9  19  -2   1   4