заполнить массив случайными числами и вывести в консоль 40 элементов Числа из промежутков от 1000 до 2000

1

Ответы и объяснения

2013-10-01T20:23:39+04:00
Const n=40;
Var a:array[1..n] of integer;
i:integer;
Begin
 randomize;
 for i:=1 to n do
   a[i]:=random(1000,2000);
 for i:=1 to n do
   begin
    write(a[i],' ');
    if (i mod 10)=0 then writeln;
   end;
 readln;
end.