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

[Юля787]

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

поооооожалуйста помогите(

[raxp]

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

[Levsha100]

1)

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

[Stilet]

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

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.

[Юля787]

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

[Stilet]

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