Дана целочисленная матрица A(nxn).Найдите наибольшие элементы в каждом столбце этой матрице и найти количество нечётных чисел среди них
Помогите!
Код:
nodd:=0;
for i:=1 to n do
begin
maxs:=a[1,i];
for j:=2 to n do
if a[j,i]>maxs then
maxs:=a[j,i];
if odd(maxs) then inc(nodd);
end;
for i:=1 to n do
begin
maxs:=a[1,i];
for j:=2 to n do
if a[j,i]>maxs then
maxs:=a[j,i];
if odd(maxs) then inc(nodd);
end;
1.min= 1e38
2.FOR i=1 TO n
3.FOR j=1 TO n
4.IF i<j AND a(i,j)>0 AND a(i,j)<min THEN min=a(i,j)
5.IF i=j AND a(i,j)<0 THEN k=k+1
6.NEXT
7.NEXT
8.PRINT"kol-vo otricat.=";k
9.PRINT"min=";min
2.FOR i=1 TO n
3.FOR j=1 TO n
4.IF i<j AND a(i,j)>0 AND a(i,j)<min THEN min=a(i,j)
5.IF i=j AND a(i,j)<0 THEN k=k+1
6.NEXT
7.NEXT
8.PRINT"kol-vo otricat.=";k
9.PRINT"min=";min
min= 1e38
FOR i=1 TO n
FOR j=1 TO n
IF i<j AND a(i,j)>0 AND a(i,j)<min THEN min=a(i,j)
IF i=j AND a(i,j)<0 THEN k=k+1
NEXT
NEXT
PRINT"kol-vo otricat.=";k
PRINT"min=";min
FOR i=1 TO n
FOR j=1 TO n
IF i<j AND a(i,j)>0 AND a(i,j)<min THEN min=a(i,j)
IF i=j AND a(i,j)<0 THEN k=k+1
NEXT
NEXT
PRINT"kol-vo otricat.=";k
PRINT"min=";min