Question

исправить программу на PASCAL. Не могу доделать программу. Нужно сделать что бы выводило число только из нечетной строки, а у меня выводит из любой. (В двумерном массиве B (M,N) найти минимальный элемент с нечетным индексом строки.)

Program ht;
const
n = 5;
m = 6;
var
b: array [1..n, 1..m] of integer;
s, i, j,y: integer;
begin
randomize;
writeln('Массив:');

for i := 1 to n do begin
for j := 1 to m do begin
b[i, j] := random(100);
write(b[i, j]:4);
end;
writeln;
end;
s:=b[1,1];
y:=1;
For i:=1 to n do
For j:=1 to m do
If b[i,j]< s then
begin
s:=b[i,j]; y:=i;

end;
Writeln('Минимальный элемент ',s,' в строке №', y);
End.