Untitled

const Sz = 100; // Paзмер массива

var

a: array [1..Sz] of integer;

N: integer; // Количество элементов в массиве

i: integer;

begin

N := 20;

for i:=1 to N do

a[i]:= Random (100) ;|

writeln(Элементы массива: ');

for i:=1 to N do write (a[i],' ');

I

end.