Паскаль.Массивы.

[Jimmy_93]

Помогите пожалуйста написать программу.

В матрице размером m x n для каждой строки подсчитать разницу между числом положительных и отрицательных элементов.Далее, следует заменить отрицательные элементы строки на значение этой разницы.

[MoBLer]

uses crt;
const
n=10;
m=10;
var
a:array[1..m,1..n] of integer;
i,j,p,o,r:integer;
begin
randomize;
p:=0; o:=0;
for i:=1 to m do
begin
 for j:=1 to n do
 begin
  a[i,j]:=random(20)-10;
 if (a[i,j]<0)  then o:=o+1 else p:=p+1;
 write(a[i,j],' ');
 end;
 writeln;
 end;
 r:=p-o;
 writeln;
for i:=1 to m do
 begin
 for j:=1 to n do
 begin
 if  a[i,j]<0 then a[i,j]:=r;
 write(a[i,j],' ');
 end;
 writeln;
 end;
readln
end.

[Jimmy_93]

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

[Jimmy_93]

А как сделать так, чтобы я мог сам вводить матрицу?А то здесь выдает сама программа.

[Mad_Cat]

for j:=1 to n do
 begin
 { a[i,j]:=random(20)-10;}
readln(a[i,j]);