В прямоугольной таблице указать строку, содержащую максимальный нечетный элемент - PascalABC.NET
Формулировка задачи:
обработка двумерного массива.
Протестировать программу (2-3 набора тестов)
В прямоугольной таблице указать строку, содержащую максимальный
нечётный элемент.
Решение задачи: «В прямоугольной таблице указать строку, содержащую максимальный нечетный элемент»
textual
Листинг программы
const m=4;
n=3;
var
a:array[1..n,1..m] of integer;
i,j,k,l:integer;
begin
k:=Integer.MinValue;
writeln('Введите таблицу (',n,'x',m,') по строкам:');
for i:=1 to n do begin
write('Введите строку ',i,':');
for j:=1 to m do begin
read(a[i,j]);
if odd(a[i,j]) and (a[i,j]>k) then begin
k:=a[i,j];
l:=i;
end;
end;
end;
writeln('максимальный нечетный элемент ',k,' находится в строке ',l);
end.