Введенную с клавиатуры матрицу вывести на печать в разных цветовых гаммах

@Kam_1995 · Регистрация: 23.03.2013

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

Введенную с клавиатуры матрицу вывести на печать в разных цветовых гаммах: для элементов над диагональными элементами; диагональн. элементами; под диагональю.

@Puporev · 12.07.2013, 15:56

Диагональ только главная?

@Kam_1995 · 12.07.2013, 15:59 **[ТС]**

Сообщение от Puporev

Диагональ только главная?

ну как бы главная чтобы была одного цвета, под главной все элементы другого, а над главной - другого цвета

@Puporev · 12.07.2013, 16:04

Pascal

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<i then textcolor(10)
    else if j=i then textcolor(12)
    else textcolor(11);
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.

@Kam_1995 34 / 34 / 22 Регистрация: 23.03.2013 Сообщений: 176
		1
	Введенную с клавиатуры матрицу вывести на печать в разных цветовых гаммах 12.07.2013, 14:49. Показов 1231. Ответов 3 Метки нет (Все метки) Введенную с клавиатуры матрицу вывести на печать в разных цветовых гаммах: для элементов над диагональными элементами; диагональн. элементами; под диагональю. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.07.2013, 15:56	2
	Диагональ только главная? 1

@Kam_1995 34 / 34 / 22 Регистрация: 23.03.2013 Сообщений: 176
	12.07.2013, 15:59 [ТС]	3
	Сообщение от Puporev Диагональ только главная? ну как бы главная чтобы была одного цвета, под главной все элементы другого, а над главной - другого цвета 0

	12.07.2013, 16:04

Введенную с клавиатуры матрицу вывести на печать в разных цветовых гаммах

Решение