Контрольное задание №10-3 / 10-3 / zadanie_3

program Zadanie_3;
var
i,j,K,n,m: byte;
S,Pr: real;
a: array [1..255,1..255] of real;
begin
writeln ('‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ббЁў  N x M:');
readln (n,m);
for i:=1 to n do
for j:=1 to m do
begin
writeln ('‚ўҐ¤ЁвҐ a[',i,',',j,'] : ');
readln (a[i,j]);
end;
for i:=2 to n do
for j:=1 to (i-1) do
S:=S+a[i,j];
Pr:=1;
for j:=2 to m do
for i:=1 to (j-1) do
if a[i,j]<>0 then Pr:=Pr*a[i,j];
if n>m then n:=m;
for i:=1 to n do
begin
j:=i;
if abs(a[i,j])<=1 then K:=K+1;
end;
writeln ('‘㬬  н«Ґ¬Ґ­в®ў ­Ё¦Ґ Ј« ў­®© ¤Ё Ј®­ «Ё:',S:7:2);
writeln ('Џа®Ё§ўҐ¤Ґ­ЁҐ н«Ґ¬Ґ­в®ў ўлиҐ Ј« ў­®© ¤Ё Ј®­ «Ё:',Pr:7:2);
writeln ('Љ®«ЁзҐбвў® н«Ґ¬Ґ­в®ў ­  Ј« ў­®© ¤Ё Ј®­ «Ё ў Ё­вҐаў «Ґ [-1;1]',K);
readln();
end.