Pascal:
Дана прямоугольная таблица, которая содержит не более 10 строк и не более 10 столбцов. Найти сумму элементов, которые стоят перед максимальным элементом.

Алгоритм:

1. Объявим массив a размером 10×10, переменные n, m (реальные размеры), i, j, max, max_i, max_j, sum.

2. Введём n, m и элементы массива.

3. Найдём максимальный элемент и его координаты (первое вхождение).

4. Пройдём по всем элементам до найденной позиции (по строкам, затем по столбцам) и суммируем их.

5. Выведем сумму.

Пример кода (основная часть):

max := a[1,1]; max_i := 1; max_j := 1;
for i := 1 to n do
  for j := 1 to m do
    if a[i,j] > max then begin
      max := a[i,j];
      max_i := i;
      max_j := j;
    end;

sum := 0;
for i := 1 to max_i do
  for j := 1 to m do
    if (i < max_i) or ((i = max_i) and (j < max_j)) then
      sum := sum + a[i,j];

writeln(sum);

Если максимальных несколько, берём первый встреченный.

0 0 Пожаловаться