Написать программу, которая выводит на экран линейный массив из 10 случайных чисел. Причем отрицательные элементы синим цветом, а положительные элементы – красным. Pascal ABC

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

program RandomArray;

uses Crt;

var
arr: array[1..10] of integer;
i: integer;

begin
Randomize;

for i := 1 to 10 do
begin
arr[i] := Random(21) - 10; // генерируем случайное число от -10 до 10
if arr[i] < 0 then
TextColor(Blue)
else
TextColor(Red);

end;

Readln;
end.