В прямоугольной таблице указать строку, содержащую максимальный отрицательный чётный элемент - Pascal ABC

Формулировка задачи:

В прямоугольной таблице указать строку, содержащую максимальный отрицательный чётный элемент. А именно как создать процедуру которая ищет максимальный отрицательный четный элемент!!!!!1 (Сообщение было перенесено из дублирующей темы)

Код к задаче: «В прямоугольной таблице указать строку, содержащую максимальный отрицательный чётный элемент - Pascal ABC»

textual
type
mas_2 = array [1..20, 1..20] of integer;
 
procedure inp2(var m, n: integer; var a: mas_2);
var
i, j: integer;
begin
write('Введите размеры таблицы ');
readln(m, n);
for i := 1 to m do
for j := 1 to n do
a[i, j] := random(20) - 10;
end;
 
procedure outp2(m, n: integer; const a: mas_2);
var
i, j: integer;
begin
for i := 1 to m do
begin
writeln;
for j := 1 to n do
write(a[i, j]:5);
end;
writeln;writeln;
end;
 
procedure stroka(a: mas_2; m, n: integer);
var
i, j, min, st: integer;
begin
min:=-10;
st:=0;
for i := 1 to m do
 for j := 1 to n do
if (a[i, j] mod 2=0)and(a[i, j] < 0)and(a[i, j] > min) then
begin
min := a[i, j];
st := i;
end;
if (st = 0) then write('Отрицательных нет')
else write('Максимальный отрицательный чётный=', min, ' в строке ', st);
end;
 
var
a: mas_2;
m, n: integer;
 
begin
inp2(m, n, a);
outp2(m, n, a);
stroka(a, m, n);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.571 из 5


СДЕЛАЙТЕ РЕПОСТ