Лабораторные работы / Лабораторные работы - 2003 / ANDREY2gyt

program qwert;
uses crt;
const n=4;
var
i,j:integer;
c,s:real;
a:array [1..n,1..n] of real;
begin
for i:=1 to n do
for j:=1 to n do
begin
writeln('VVOD ELEMENTA A[',i,',',j,'] =');
read(a[i,j]);
end;
s:=0;
c:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j] < 0 then s:= s + a[i,j];
for j:=1 to n do
if a[1,j]>0 then c:= c + a[i,1];
writeln('SUMMA OTRICATELNIX ZNACHENII V MATRICE S=',s);
writeln('SUMMA VERHNEI POLOGITELNOI STROCHKI C=',c);
end.