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

uses crt;
var
  a: array [1..10] of integer;
  i: byte;
 
begin
randomize;
writeln(' *** Исходный массив ***');
for i := 1 to 10 do
begin
  a[i] := random(50)-25;
  if a[i] < 0 then TextColor(1);
  if a[i] = 0 then TextColor(15);
  if a[i] > 0 then TextColor(4);
  write(a[i], ' ');
end;
TextColor(15);
writeln;  
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.