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

[Элен]

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

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

[fms]

а что не получается?

[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;

[Alexey]

Народ помогите!!!! Очень нужно! задача такая:

Ввести матрицу 10х10,
посчитать сумму элементов над главной диагональю, произведение под обратной диагональю, сумму отрицательных элементов.

Помогите пожалуйста! нужно до завтрашнего утра!

[Altair]

Поищи-ка в прикрепленных темах, там кажется есть такое...

[Guest]

не нашел... (

[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:

[Гость_Алексей]

Спасибо Олег!

Все скомпилировал, все работает. Осталось только разобраться в том, как все это работает и объяснить это преподавателю

[BlackShadow]

Poison, порадовал(а) (вроде с а ). Всегда приятно видеть того, кто не прочь помочь другим

Alexey, ты был не прав. Надо было создать новую тему или по-лучше поискать.

Oleg_Z, а ты был дважды не прав.

[Altair]

Poison она.
Alexey испарвиться. Зато он молодец -сам задачу решил! Это важнее всего!!!
Ну и исправлясь, однакоесли бы я все на блюдечке приподнес, то он может и решать задачи не научился бы! Все в мире диалектично!