{* Задача 254 *}

Unit ZADACH254;
Interface
Implementation
Begin
 writeln('Даны натуральное число n, целочисленная матрица
[aij] i=1, 2; j=1,..., m . Найти сумму тех из элементов a2 j (j= 1,..., m), для
которых a1j имеет значение наибольшего среди значений

a11, a12, a13...a1m

');
End.

Program task391;

Uses zadach254.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Const {* Предопределенные *}
  nmax = 100;
Var {* Объявление переменных *}
  A   : Array [1..2, 1..nmax] Of integer;
  n   : integer;
  i   : integer;
  j   : integer;
  max : integer;
  sum : integer;
Begin
  ClrScr; {очистка экрана}
  write('Введите натуральное число n = ');
  readln(n);
  n := abs(n); {защита от ввода отрицательных чисел}
  If (n > nmax) Then
    n := nmax;
  writeln('Введите значения матрицы 2 x ', n, ':');
  For i := 1 To 2 Do {* Цикл для i => [1 .. 2] *}
  Begin
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    Begin
      read(A[i, j]);
    End;
    readln; {* Ждем нажатия Enter *}
  End;
  max := A[1, 1];
  For j := 2 To n Do {поиск максимума}
    If A[1, j] > max Then
      max := A[1, j];
  sum := 0;
  For j := 1 To n Do {вычисление суммы}
    If A[1, j] = max Then
    Begin
      sum := sum + A[2, j];
    End;
  writeln('Sum = ', sum);
  write('Для выхода нажмите любую клавишу ...');
  readkey; {* Нажмите любую клавишу *}
End.