В матрице все отрицательные элементы, стоящие на главной диагонали и ниже ее, заменить нулями

@ViperGraf · Регистрация: 25.01.2012

в матрице А(8,8) все отрицательные элементы, стоящие на глав¬ной диагонали и ниже ее, заменить нулями.

HighPredator · 28.11.2012, 19:11

Pascal

for i:=1 to 8 do
begin
  for j:=1 to i do
  begin
    if a[i,j]<0 then a[i,j]:=0;
  end;
end;

@ViperGraf 0 / 0 / 0 Регистрация: 25.01.2012 Сообщений: 49
		1
	В матрице все отрицательные элементы, стоящие на главной диагонали и ниже ее, заменить нулями 28.11.2012, 17:49. Показов 1563. Ответов 1 Метки нет (Все метки) в матрице А(8,8) все отрицательные элементы, стоящие на глав¬ной диагонали и ниже ее, заменить нулями. 0

Опции темы

Решение