Обнулить элементы, стоящие ниже главной диагонали и вывести новую матрицу на экран

@dashacosmos · Регистрация: 10.05.2013

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

дана квадратная матрица 4х4. Обнулить элементы, стоящие ниже главной диагонали и вывести новую матрицу на экран

@indigoi · 10.05.2013, 12:49

щас найду была похожая задача

@dashacosmos · 10.05.2013, 12:50 **[ТС]**

спасибо!!!

@Midian · 10.05.2013, 12:51

Pascal

const
n = 4;
var
arr: array[1..n, 1..n] of integer;
i,j: byte;
begin
writeln('Матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
arr[i,j]:=random(40);
write(arr[i,j],' ');
end;
writeln;
end;
writeln('Обнуленная:');
for i:=1 to n do
begin
for j:=1 to n do
begin
if (i > j) then arr[i, j]:=0;
write(arr[i, j],' ');
end;
writeln;
end;
end.

@dashacosmos 0 / 0 / 0 Регистрация: 10.05.2013 Сообщений: 4
		1
	Обнулить элементы, стоящие ниже главной диагонали и вывести новую матрицу на экран 10.05.2013, 12:40. Показов 2741. Ответов 3 Метки нет (Все метки) дана квадратная матрица 4х4. Обнулить элементы, стоящие ниже главной диагонали и вывести новую матрицу на экран 0

@indigoi 1 / 1 / 2 Регистрация: 06.05.2013 Сообщений: 17
	10.05.2013, 12:49	2
	щас найду была похожая задача 1

@dashacosmos 0 / 0 / 0 Регистрация: 10.05.2013 Сообщений: 4
	10.05.2013, 12:50 [ТС]	3
	спасибо!!! 0

	10.05.2013, 12:51