Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Нахождение максимального элемента массивов

Автор: Элен 15.04.2004 6:16

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

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

Автор: fms 15.04.2004 14:46

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

Автор: Poison 15.04.2004 14:52

Передаешь в подпрограмму сначала А и 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 17.09.2004 18:54

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

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

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

Автор: Altair 17.09.2004 19:02

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

Автор: Guest 17.09.2004 21:18

не нашел... sad.gif(

Автор: Altair 17.09.2004 22:54

Оххх....
"Щас убъю!" - сказал бы нормальный человек.
Я скажу: Вы плохо искали!
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: smile.gif

Автор: Гость_Алексей 18.09.2004 0:44

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

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

Автор: BlackShadow 18.09.2004 1:02

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

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

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

Автор: Altair 18.09.2004 1:21

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