Практика по алгоритмизации - Обработка двухмерных массивов

Обработка двухмерных массивов. 1. В данной действительной квадратной матрице порядка N*N: найти сумму положительных элементов над побочной диагональю. 2. В матрице переставить в обратном порядке элементы тех строк, которые начинаются нулевыми элементами.поооооожалуйста помогите(
5 ответов

- язык? - наработки? ...


1)
Сумма=0
Цикл i=1 до N начать
 Цикл j=1 до N начать
 Если j<i тогда
 Если а[i,j]>0 тогда Сумма= Сумма+а[i,j]


Или вообще вот так, раз язык не указан:
MODULE ObxHello0;

	IMPORT StdLog;

	PROCEDURE Do*;
	VAR a:ARRAY(5),(5) OF INTEGER;
	 sum,i,j:INTEGER;
	BEGIN
	 sum:=0;
	 FOR i:=0 TO 4 DO
 	 FOR j:=0 TO 4 DO
	 a[i,j]:=i;
	 IF (j<(5-j+1))&(i<(5-i+1)) THEN sum:=sum+1; END;
		StdLog.Int(a[i,j]); StdLog.String(' ');
 	 END;
		StdLog.Ln;	(* вывод строки и 0DX в рабочий журнал *)
 END;
	 StdLog.String('Сумма = ');
		StdLog.Int(sum); 
		StdLog.Ln;	(* вывод строки и 0DX в рабочий журнал *)
	END Do;

END ObxHello0.


а можно как нибудь попроще на паскале??? заранеее спс


Загляни сюда: http://www.programmersforum.ru/showthread.php?t=66421 Практически твоя задача.