Вот, пожалуйста.
Code
program Project1;
uses
crt;
const n=5; //stroki
m=9;
var
i,j,k:integer;
a:array[1..n,1..m] of integer;
NumOfPlus:array[1..n] of integer;
Summ:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
k:=random(2);
if k=0 then k:=-1 else k:=1;
a[i,j]:=(random(99)+1)*k;
write(a[i,j]:5);
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]>0 then NumOfPlus[i]:=NumOfPlus[i]+1;
summ[i]:=summ[i]+a[i,j];
end;
end;
writeln;
for i:=1 to m do
begin
write(' ');
end;
writeln('Plus Summ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:5);
end;
writeln(NumOfPlus[i]:5,' ',summ[i]:5);
end;
readln;readln;
end
ЗЫ: Всегда рады видеть Вас на нашем форуме