Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от - 20 до 20 Паскаль.

Program Massiv;

Uses Crt;

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

i:integer;

begin

write ('Наш Массив:') ;

randomize;

for i:=1 to 100 do

begin

a[i]:=random (40) - 20; / / Заполняем очередной элемент массива случайным

write (a[i],' ') ; / / Выводим элемент массива на экран

end;

readkey;

end.