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

Question

Информатика

Властислав

27 июля, 09:32

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

+3

Ответы (1)

Знаете ответ на вопрос?

Сафуан · Answer 1

Uses Crt;

var

a:array[1 ... 10] of shortint;

i:byte;

begin

randomize;

for i:=1 to 10 do

begin

a[i]:=Random (21) - 10;

if a[i]<0 then TextColor (LightBlue)

else if a[i]>0 then TextColor (LightRed)

else TextColor (White) ;

Write (a[i],' ')

end;

TextColor (White) ;

Writeln

end.