Заполнить двумерный массив рандомно,вывести массив различая цвета для чётных и нечётных чисел

@Janusz · Регистрация: 16.09.2015

Студворк — интернет-сервис помощи студентам

Заполнить двумерный массив рандомно,вывести массив различая цвета для чётных и нечётных чисел. Вот программа,надо добавить различие по цветам при выводе:

Pascal

program abc;  
var
    a: array[1..3,1..4] of integer;
    i, j: integer;
 
begin
    for i := 1 to 3 do
    begin
        for j := 1 to 4 do
            a[i,j]:=random(9);
            
 end;
    for i := 1 to 3 do begin
        for j := 1 to 4 do
        begin
            write (a[i,j]:4);
    end;
 writeln;
end;
end.

@ite · 04.10.2015, 13:36

Pascal

uses crt;
var
i,j,r:byte;
begin
for i:=1 to 3 do
  begin
    for j:=1 to 4 do
      begin
        r:=random(9);
        if r = 0 then
          begin
            textcolor(blue);
            write(r:2);
          end
        else if r mod 2 = 0 then
          begin
            textcolor(green);
            write(r:2);
          end
        else
          begin
            textcolor(red);
            write(r:2);
          end;
      end;
    writeln;
  end;
end.

@Janusz · 04.10.2015, 16:24 **[ТС]**

Дополните,пожалуйста, мою программу,а не пишите новую.

Добавлено через 21 минуту
Спасибо,разобрался.

@Janusz 0 / 0 / 0 Регистрация: 16.09.2015 Сообщений: 15
	04.10.2015, 16:24 [ТС]	3
	Дополните,пожалуйста, мою программу,а не пишите новую. Добавлено через 21 минуту Спасибо,разобрался. 0

Опции темы