Как доработать код?Работа с матрицами

[Саня Новиков]

Следующие задание: дана действительная матрица 8*5 найти для каждой строки элементы с наибольшим значением и подсчитать их количество.
Начало:

var
  A: array[1..10, 1..10] of integer;
  i, j, M, N: byte;
  MaxElem: integer;

begin
  write('M = ');
  readln(M);
  write('N = ');
  readln(N);
  { Формируем и выводим матрицу: }
  randomize;
  writeln('Случайная матрица ', M, 'x', N, ':');
  for i := 1 to M do begin
    for j := 1 to N do begin
      a[i, j] := -100 + random(200);
      write(a[i, j]:4)
    end;
    writeln
  end;
  writeln;
  writeln('Максимальный элемент в каждой строке:');
  for i := 1 to M do begin
    { Начальное значение максимального элемента 
     равно первому элементу строки (j = 1): }
    MaxElem := a[i, 1];
    for j := 2 to N do { Проверяем остальные элементы строки: j = 2, 3, ..., N }
      { Если a[i,j] больше максимума, то новым максимумом становится a[i,j] }
      if a[i, j] > MaxElem then MaxElem := a[i, j];
    writeln(i, '-я строка: максимальный элемент = ', MaxElem)
  end;
  readln
end.

не понимаю,как теперь сделать так, чтобы считало количество таких элементов

[digitalis]

Если это - assembler, то я - троллейбус. Мне по простоте душевной кажется - Паскаль.

подсчитать их количество

. Кого - количество ? Элементов с наибольшим значением в каждой строке? Так их будет ровно столько, сколько и самих строк.

[Саня Новиков]

Не особо разбираюсь в этом

[ura_111]

Саня привет!

Попробуй сохранить значения строчных максимумов в отдельный массив "b[1..10]".
А потом, организовав ещё один цикл, просто будешь сравнивать
"b[i]" c "a[i, j]". Если совпало -> строковый счётчик +1.
В принципе, счётчики тоже можно хранить в массиве "S[1..10]= 0", - этом случае (если совпал максимум в строке) ты просто будешь: "S[i]=S[i]+1"

Саня скажи мне, почему у тебя в коде встречается одновременно и "MinElem" и "MaxElem"?
(ведь в задаче чётко сказано: искать максимальный)

Чей это код, Саня?

p.s.: прочитай мой пост 3-ри раза. С первого раза ты просто половину информации не воспримешь (по себе сужу).

[digitalis]

Не особо разбираюсь в этом

Тогда, может, другим чем заняться - в менеджеры, что ли? На фига тебе Паскаль - для диплома что ль? Дать преподу пятихатку, и зачет в кармане.
Менеджер с дипломом, но с вакуумом в бошке - плохо, но еще не край. А вот не дай бог - врач

[Саня Новиков]

код с друзьями написали, min это с варианта кого-то из них
Как хотя бы приблизительно будет выглядеть код?
Первый раз работаю с матрицами(

[Саня Новиков]

Сообщение от digitalis

Тогда, может, другим чем заняться - в менеджеры, что ли? На фига тебе Паскаль - для диплома что ль? Дать преподу пятихатку, и зачет в кармане.
Менеджер с дипломом, но с вакуумом в бошке - плохо, но еще не край. А вот не дай бог - врач

Я первокурсик, этого в моей дальнейшей профессии точно не будет

[ura_111]

Саня, хрень какая-то: я заменил на максимальный, но мне вывело что-то не то:

2.jpg


Сань, ты программу вообще запускал у себя?

[digitalis]

Для этого прогу и запускать не стоило - и так видно, что знак < нужно перевернуть другим концом

if a[i, j] < MaxElem then MaxElem := a[i, j];

[Саня Новиков]

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