Паскаль.Массивы Напишите программу, которая заполняет случайными числами (из диапазона от -10 до 20) массив A размерностью 15 и выводит его элементы на экран в одну строку.

Предыдущий
вопрос Следующий
вопрос

program RandomArray;
var
A: array[1..15] of Integer;
i: Integer;
begin
Randomize;

// заполняем массив случайными числами от -10 до 20
for i := 1 to 15 do
A[i] := Random(31) - 10;

// выводим элементы массива на экран
for i := 1 to 15 do
Write(A[i], ' ');
end.