Элементы массива

[Andrey_j07]

1) Дан целочисленный массив В[1..5,1..5]. Вычислить сумму элементов этого массива расположенных выше левой диагонали.
2) Составьте программу вычисления суммы тех положительных элементов двумерного массива А, которые стоят в строках, не содержащих нулевых элементов.

Помогите решить, пожалуйста!

[ROMA2PVT]

-I-

sum:=0;
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   if (i+j-1<5)then
    begin
       sum:=sum+mas[i,j];
    end;
    writeln;
 end;

[STanja]

Program mas31;
uses crt;
var i,j:integer;
t:real;
A:array[1..5,1..6] of real;
begin
clrscr;
for i:=1 to 5 do begin
for j:=1 to 6 do begin
a[i,j]:=random;
write(A[i,j]:0:2,' ');
end;
writeln;
end;
writeln;
writeln;

for i:=1 to 5 do begin
for j:=1 to 6 do begin
t:=a[1,j];
a[1,j]:=a[5,j];
a[5,j]:=t;
end;
end;

for i:=1 to 5 do begin
for j:=1 to 6 do begin
write(A[i,j]:0:2,' ');
end;
writeln;
end;

readkey;
end.

[Grag]

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

-I-

sum:=0;
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   if (i+j-1<5)then
    begin
       sum:=sum+mas[i,j];
    end;
    writeln;
 end;

А не проще ли вот так сделать

sum:=0;
for i:=1 to 4 do
  for j:=i+1 to 5 do
    Inc(sum,mas[i,j]);
writeln(sum);