Задана прямоугольная целочисленная матрица, состоящая из m строк и n столбцов. Найти максимальный элемент из отрицательных элементов матрицы, расположенных в столбцах с номерами, кратными числу 2.
И что из написанного у тебя не получилось? Где наработки? В каком месте программы у тебя неправильный результат или появляются ошибки?
Числа сама вводишь?
Рекрут, не сама, а САМ!)
program qwe;
var arr:array[1..10, 1..10] of integer;
i, j, m, n, max, ii, jj: integer;
begin
max:=-maxint;
write('Строк: ');
readln(m);
write('Столбцов: ');
readln(n);
for i:=1 to m do begin
for j:=1 to n do begin
Arr[i,j]:=random(20)-10;
write(Arr[i,j],' ')
end;
writeln;
end;
for i:=1 to m do
for j:=1 to n do
if (Arr[i,j] < 0) and (Arr[i,j] > max) and (j mod 2 = 0) then begin
max:=Arr[i,j];
ii:=i;
jj:=j;
end;
writeln('Максимальный из минимальных: ', max);
writeln('Строка ', ii, ' | Столбец ', jj);
end.
⇢