Процедуры. Pascal

[Kind1]

В массиве A(n) и B(n) все элементы, следующие за максимальным (за первым по порядку, если их несколько), заменить на 1.

[ZX Spectrum-128]

1. Смотрим в Faq, как найти макс
2. Ищем первый из них

For i:=1 to n do
 If a[i]=max then
  Begin
    Imax:=i;
    Break;
  End;

3. Заменяем на 1

For i:=imax+1 to n do
  A[i]:=1;

Вопрос, какой из максимумов брать? Из массива В или А?
Или у каждого свой?

[Poma][a]

1. Смотрим в Faq, как найти макс
2. Ищем первый из них

А за один проход? не?

max := 1;
for i := 1 to n do
     if a[i] > a[max] then
           max := i;

for i := max+1 to n do
       a[i] := 1;

Вопрос, какой из максимумов брать? Из массива В или А?
Или у каждого свой?

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

[Kind1]

Ребят... Это задача моего друга. Он уже решил. Спасибо вам, за вашу отзывчивость и помощь! Вы могли бы помочь мне пожалуйста с этой?

Заданы три матрицы A(m, m), B(n, n), C(k, k). Найти минимальный из всех максимальных элементов главных диагоналей матриц.