Помогите плиз решить задачку..
Дано масивы A(10) B(15). Поменять местами максимльные элементытих массивов. Максимальный элемент и его номер находить в подпрограмме.
Полная версия: Нахождение максимального элемента массивов
а что не получается?
Передаешь в подпрограмму сначала А и 10 - mas и n соответсвенно
Возвращаешь k - номер максимального элемента в массиве А (maxA, скажем);
то же для В и меняешь местами:
Код
mas[i]:=max;
for i:=1 to n do
if mas[i]>max then begin
max:=mas[i];
k:=i;
end;
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;
A[maxA]:=B[maxB];
B[maxB]:=j;
Народ помогите!!!! Очень нужно! задача такая:
Ввести матрицу 10х10,
посчитать сумму элементов над главной диагональю, произведение под обратной диагональю, сумму отрицательных элементов.
Помогите пожалуйста! нужно до завтрашнего утра!
Ввести матрицу 10х10,
посчитать сумму элементов над главной диагональю, произведение под обратной диагональю, сумму отрицательных элементов.
Помогите пожалуйста! нужно до завтрашнего утра!
Поищи-ка в прикрепленных темах, там кажется есть такое...
не нашел... 
(
(
Оххх....
"Щас убъю!" - сказал бы нормальный человек.
Я скажу: Вы плохо искали!
http://forum.pascal.net.ru/index.php?showtopic=1212
Там:
Вобщем все есть, только нужно желание собрать все - СКОМПИЛИРОВАТЬ (ибо компиляция - процесс сборки чужих исследований, наработок!).
Что, не знаете как матрицу ввести?
Вот:
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:
"Щас убъю!" - сказал бы нормальный человек.
Я скажу: Вы плохо искали!
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];
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:
Спасибо Олег!
Все скомпилировал, все работает. Осталось только разобраться в том, как все это работает и объяснить это преподавателю
Все скомпилировал, все работает. Осталось только разобраться в том, как все это работает и объяснить это преподавателю
Poison, порадовал(а) (вроде с а ). Всегда приятно видеть того, кто не прочь помочь другим
Alexey, ты был не прав. Надо было создать новую тему или по-лучше поискать.
Oleg_Z, а ты был дважды не прав.
). Всегда приятно видеть того, кто не прочь помочь другимAlexey, ты был не прав. Надо было создать новую тему или по-лучше поискать.
Oleg_Z, а ты был дважды не прав.
Poison она.
Alexey испарвиться. Зато он молодец -сам задачу решил! Это важнее всего!!!
Ну и исправлясь, однакоесли бы я все на блюдечке приподнес, то он может и решать задачи не научился бы! Все в мире диалектично!
Alexey испарвиться. Зато он молодец -сам задачу решил! Это важнее всего!!!
Ну и исправлясь, однакоесли бы я все на блюдечке приподнес, то он может и решать задачи не научился бы! Все в мире диалектично!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.