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

var

arr : array [1 ... 100] of integer; / / объявляем массив.

i : integer; / / объявляем переменную целочисленного типа.

Begin

for i: = 1 to 100 do / / начало цикла.

begin

arr[i] : = random (-20,20); / / заполняем элемент массива с индексом i случайным числом.

write (arr[i], ' '); / / вывод содержимого массива на экран.

end;

End.