const n=10;
      m=15;
var a:array [1..n,1..m] of integer;
    count,summ,i,j:integer;
begin
for i:=1 to n do begin
  for j:=1 to m do begin
    a[i,j]:=random(200)-100;
    write(a[i,j]:4,' ');
    end;
  writeln;
end;

summ:=0;
count:=0;
for i:=1 to n do begin
  for j:=1 to m do begin
    if a[i,j]>0 then begin
      summ:=summ+a[i,j];
      count:=count+1;
      end;
    end;
    writeln('Кол-во положительных элементов в ',i,' строке:',count,' Сумма=',summ);
    summ:=0;
    count:=0;
  end;
end.