Цвета

[darklagger]

Помогите пожалуйста! У меня есть массив A: array[1..5] of string[30] = ('Вишенка', 'Виноград', 'Яблоко', 'BAR', 'Арбуз');
как сделать чтобы например Вишенка была красным цветом, Виноград синим, Яблоко зелёным и т.д.?

[MoBLer]

Гугл поиск 'модуль crt цвет текста'

[darklagger]

Я искал, но там только для всего текста цвет можно использовать, а мне надо для определённого слова(элемента массива) определённый цвет

[MoBLer]

Просто перед каждым выводом меняй цвет например

textcolor(10);
wreteln('яблоко');
textcolor(12);
wreteln('вишня');

и т.д.

[Serge_Bliznykov]

плохо искали. (лично я думаю, что совсем не искали!
После установки цвета текста вновь выводимый цвет будет то, который задали. Выведенный ранее цвет не поменяет!!!

uses CRT;
const
   N = 5;
   A: array[1..N] of string[30] = ('Вишенка', 'Виноград', 'Яблоко', 'BAR', 'Арбуз');
   ColorA: array[1..N] of Integer = (Red, Blue, Green, White, Yellow );

var i : integer;
begin
  clrscr;
  for i:=1 to N do begin
    textcolor(ColorA[i]);   
    Writeln(A[i]);
  end;
  readln
end.

[darklagger]

Спасибо большое