Нахождение максимального элемента массивов, ... Опции

[Элен]

Помогите плиз решить задачку..

Дано масивы A(10) B(15). Поменять местами максимльные элементытих массивов. Максимальный элемент и его номер находить в подпрограмме.

[Poison]

Передаешь в подпрограмму сначала А и 10 - mas и n соответсвенно

Код

mas[i]:=max;
for i:=1 to n do
    if mas[i]>max then begin
                                  max:=mas[i];
                                  k:=i;
                                 end;

Возвращаешь k - номер максимального элемента в массиве А (maxA, скажем);
то же для В и меняешь местами:

Код

j:=A[maxA];
A[maxA]:=B[maxB];
B[maxB]:=j;