lab_inf / LAB6

Program lab6;
const Nmax=100;
type Massivx=array[1..Nmax,1..Nmax] of real;
Massivsumplus=array[1..Nmax] of real;
Massivsumminus=array[1..Nmax] of real;
var
x:Massivx;
sumplus:Massivsumplus;
summinus:Massivsumminus;
n,m,i,j,y,z:integer;
begin
write('vvedite chislo strok massiva');
readln(n);
write('vvedite chislo stolbcov massiva');
readln(m);
{vvod dvymernogo massiva}
for i:=1 to n do
begin
for j:=1 to m do
begin
write('vvesti x[',i,',',j,']:');
readln(x[i,j]);
end
end;
{kontrolniy vivod dvymernogo massiva}
writeln('');
writeln('vveden massiv');
writeln('');
for i:=1 to n do
begin
for j:=1 to m do
write(x[i,j]:6:2,'');
end;
{reshenie}
for i:=1 to n do
begin
sumplus[i]:=0;
summinus[i]:=0;
for j:=1 to m do
if x[i,j]>0 then sumplus[i]:=sumplus[i]+x[i,j] else summinus[i]:=summinus[i]+x[i,j];
end;
writeln('');
writeln('sumplus');
for i:=1 to n do
write(sumplus[i]:7:2,'');
writeln('');
writeln('summinus=');
for i:=1 to n do
write(summinus[i]:7:2,'');
end.