CONST n=6;
TYPE matr=array[1..n,1..n] of real;
mas=array[1..n*n] of real;
VAR mt:matr;
ms:mas;
i,j,k:byte;
max:real;
BEGIN
{здесь ввод матрицы mt сделаете сами}
k:=0;
for i:=1 to n do
for j:=1 to n do begin
if ((i+j) mod 2)<>0 then begin
inc(k);
ms[k]:=mt[i,j]
end
end;
i:=0;
j:=0;
while i<=k do begin
inc(i);
inc(j);
if ms[i]<0 then begin
max:=ms[i];
i:=k+1
end
end;
i:=j;
while i<=k do begin
inc(i);
if (max<ms[i]) and (ms[i]<0) then max:=ms[i]
end;
if max<>0 then writeln(max:0:2)
else writeln('net takogo chisla');
readln
END. |
