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

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


textual

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

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.

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

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



Похожие ответы
  1. Задание: "В прямоугольной матрице выявить все квадратные подматрицы, у которых суммы элементов обеих диагоналей одинаковы."

  1. Помогите пожалуйста найти ошибку, Задача:В прямоугольной таблице указать столбец, содержащий максимальный отрицательный элемент.

  1. Пожалуйста помогите с задачей! Тема:массивы. В прямоугольной таблице указать строку, содержащую минимальный положительный элемент.

  1. Определить номера строки и столбца максимального отрицательного элемента прямоугольной матрицы A=(a_i,j)_M,N.

  1. 3.Дан символ C. Вывести два символа, первый из которых предшествует символу C в кодовой таблице, а второй следует за символом C. Ребята помогите пожалуйста буду сильно благодарен к часу на пару надо отдать

  1. Имеется стол прямоугольной формы размером a × b (a и b - целые числа, a > b). В каком случае на столе можно разместить большее количество картонных прямоугольников с размерами c × d (c и d — целые числа, c > d ): при размещении их длинной стороной вдоль длинной стороны стола или вдоль короткой. Прямоугольники не должны лежать один на другом и не должны свисать со стола.

  1. Определить количество классов эквивалентных строк данной прямоугольной матрицы. Строки считать эквивалентными, если равны суммы их элементов.

  1. Дана линейная таблица, которая содержит N действительных чисел. Выяснить, какое число встречается в таблице раньше - положительное или отрицательное. Если все элементы нулевые, то сообщить об этом.