const
n=4;
var
z:array[1..n,1..n] of real;
t:array[1..n] of real;
i,j,k:integer;
begin
randomize;
for i := 1 to n do
for j := 1 to n do
z[i,j]:=random(50)-25;
for i:=1 to n do
begin
for j:=1 to n do
write(z[i,j]:4:2);
writeln;
end;
k:=0;
for i:=1 to n do
begin
if z[i,i]<0
then
begin
inc(k);
t[k]:=0;
for j:=1 to n do
t[k]:=t[k]+z[i,j];
end;
end;
writeln;
if k<>0
then
begin
for i:=1 to k do
write(t[i]:4:2);
writeln;
end
else
writeln('Нет отрицательных элементов на главной диагонали массива Z');
readln;
end. |
