Напишите программу(Паскаль) заполнения массива A [1..20] произвольными числами в...

Question

Напишите программу(Паскаль) заполнения массива A [1..20] произвольными числами в диапазоне [0,100]

Answer 1

program raf105;

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

i:integer;

begin

for i:=1 to 20 do

begin

 a[i]:=random(0,100);

 write(a[i],' ');

end;

end.

Язык программирования PascalABC