Выделение областей другим цветом в матрице

@Ghoste3 · Регистрация: 13.05.2016

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

Помогите напишите код
Дана матрица:
00000
00000
00000
00000
00000
Нужно чтобы выделил другим цветом области где стоит 1

00111
00110
00100
01100
11100

@ZX Spectrum-128 · 21.05.2016, 10:03

Pascal

uses
  crt;
const
  n = 10;
  m = 8;
 
var
  i, j: integer;  
  a: array [1..n, 1..m] of integer;
 
begin
  randomize;  
  textcolor(white);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(2);
      if a[i, j] = 1 then 
        textcolor(Red)
      else 
        textcolor(White);
      write(a[i, j], ' ');
    end;
    writeln;
  end; 
end.

@Ghoste3 0 / 0 / 0 Регистрация: 13.05.2016 Сообщений: 1
		1
	Выделение областей другим цветом в матрице 20.05.2016, 15:54. Показов 1338. Ответов 1 Метки нет (Все метки) Помогите напишите код Дана матрица: 00000 00000 00000 00000 00000 Нужно чтобы выделил другим цветом области где стоит 1 00111 00110 00100 01100 11100 0

	21.05.2016, 10:03

Выделение областей другим цветом в матрице

Решение