Паскаль матрица

[Азарт]

Составьте программу, вычисления суммы тех положительных элементов двумерного массива А, которые стоят в строках, не содержащих нулевых элементов.


надеюсь кто нить поможет...
просто на платников денег нет... а сам паскаль со всем не знаю...

[alex_fcsm]

Разбирайся

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,sum:integer;
    nl:boolean;
procedure Summ(m:integer;var x:integer);
var k:integer;
begin
  for k:=1 to n do
   if a[m,k]>0 then x:=x+a[m,k];
end;
    
begin
clrscr;
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
      a[i,j]:=random(5)-random(5);
      write(a[i,j]:3);
    end;
   writeln;
 end;
sum:=0;
for i:=1 to n do
 begin
 nl:=false;
 for j:=1 to n do
 if a[i,j]=0 then nl:=true;
 if not nl then Summ(i,sum);
 end;
writeln(sum);
end.

[Serp]

program massiv;
uses crt;
var
A: array[1..100,1..100] of integer;
i,n,j,sum,u: integer;
bool:boolean;
begin
writeln('введите размерность матрицы');
readln(n);
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10)-5;

for i:=1 to n do
begin
bool:=true;
for j:=1 to n do
if a[i,j]=0 then bool:=false;
if bool=true then
begin
for u:=1 to n do
if a[i,u]>0 then sum:=sum+a[i,u];
end;

end;

for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j],'   ')
end;
writeln;
Writeln(sum);
end;

работает вроде

[Азарт]

спасибо большое