запишите программу, в которой осуществляется: заполнение случайным образом целочисленного массива а, состоящего из 10 элементов, значения которых изменяются в диапазоне от 0 до 99; вывод массива а на экран

program array_;

var a: array[1 ... 10] of integer; / / объявление массива из 10 целых чисел

begin

Randomize;

For i: integer: = 1 to 10 do

begin

/ / элементу а[i] присваивается случайное число в диапазоне 0 ... 99

a[i]: = random (100);

write (a[i]:5) / / вывод элементов массива

end

end.