С помощью генератора случайных чисел на интервале от 0 до 100 получите целочисленный массив состоящий из 20 элементов
Program massiv; const N=20; var i:integer; mas:array[1..N]of integer; begin randomize; for i:=1 to N do mas[i]:=random(100); for i:=1 to N do write(mas[i],' '); end.