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

[Элен]

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

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

[Altair]

Оххх....
"Щас убъю!" - сказал бы нормальный человек.
Я скажу: Вы плохо искали!
http://forum.pascal.net.ru/index.php?showtopic=1212
Там:

Сумма элементов, стоящих выше главной диагонали:
s:=0;
for i:=1 to n do
for j:=i to n do s:=s+a[i,j];

Вобщем все есть, только нужно желание собрать все - СКОМПИЛИРОВАТЬ (ибо компиляция - процесс сборки чужих исследований, наработок!).
Что, не знаете как матрицу ввести?
Вот:

Код

Var
a:array[1..10,1..10] of integer; {это  матрица}
i,j:byte;
begin
{vvod matrizi}
for i:=1 to 10 do For j:=1 to 10 do
begin
 write('a[',i,',',j,']= '); readln(a[i,j]
end;
{...}

P.S. а что это у меня клавиша "Н" иногда не наживаеться? Ага там сухарь ... :p14: