27.05.2008, 17:14
общий
это ответ
Здравствуйте, Пухов Никита Евгеньевич!
Программа в приложении...
Удачи..
Приложение:
Constn=10;m=8;VarM:array[1..n,1..m] of integer;I,J:integer;Procedure Summa(x:integer);varsum:integer;Y:integer;Begin Sum:=0; For Y:=1 to m do sum:=sum+m[x,y];Writeln(‘Сумма строки № ‘,x,‘ =‘,sum);end;Begin For i:=to n do For j:=1 to m do Begin Write(‘Елемент ‘,i,‘x‘,j,‘ ‘); Readln(m[i,j]); end;For i:=1 to n do For j:=1 to m do If m[i,j]>=0 then If j=m then summa;Readln;end;