Нужна программа в паскале (с "ramdomize") N=27 заполнить массив с помощью случайных чисел...

Question

Нужна программа в паскале (с "ramdomize")
N=27 заполнить массив с помощью случайных чисел от-20 до 20

Answer 1

Var
   a: array[1..20] of integer;
   i: integer;
begin
   randomize;
   for i:=1 to 20 do
       a[i] := random(41) - 20;
   for i:=1 to 20 do
       write(a[i], ' ');
   writeln;
end.

Comments

спасибо