С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Бякаааа
0 / 0 / 0
Регистрация: 26.04.2010
Сообщений: 1
1

С помощью одной процедуры найти наибольшие элементы и их порядковые номера в массивах

29.04.2010, 21:42. Просмотров 961. Ответов 2
Метки нет (Все метки)

Можете называть меня как хотите но мне срочно очень очень нужна программка в паскале с помощью одной процедуры найти наибольшие элементы и их порядковые номера в массивах х(15) y(12)
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2010, 21:42
Ответы с готовыми решениями:

Найти наибольшие элементы и их порядковые номера в массивах
Нужен код программы Найти наибольшие элементы и их порядковые номера в...

Найти наибольшие элементы и их порядковые номера
помогите пожалуйста!!! Найти наибольшие элементы и их порядковые номера в...

Найти наибольшие элементы и их порядковые номера массивов Х(10) и Y(7)
Найти наибольшие элементы и их порядковые номера массивов Х(10) и Y(7). Спасибо.

Найти максимальный и минимальный элементы в одномерном массиве и их порядковые номера
Составьте программу, которая находит максимальный и минимальный элементы в...

найти минимальные и максимальные элементы в каждой сроке матрицы и их порядковые номера
никак не могу записать в Pascal. В матрицах A(8,9),B(8,8) и C(8,10) найти...

2
yanyk1n
4333 / 1465 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
29.04.2010, 21:49 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
type Arr = array[1..100]of integer;
var x,y:arr;
nx, ny, i, m: integer;
 
procedure max(m:arr; n:integer; var max_i:integer);
var i:integer;
begin
 max_i:=1;
 for i:=1 to n do if m[i]>m[max_i] then max_i:=i;
end;
 
begin
 clrscr;
 write('Введите размерность массива X -> ');
 readln(nx);
 write('Введите массив -> ');
 for i:=1 to nx do read(x[i]);
 readln;
 write('Введите размерность массива Y -> ');
 readln(ny);
 write('Введите массив -> ');
 for i:=1 to ny do read(y[i]);
 readln;
 max(x,nx,m);
 writeln('Маскимум в X - X[',m,'] = ',x[m]);
 max(y,ny,m);
 writeln('Маскимум в Y - Y[',m,'] = ',y[m]);
 readln;
end.
Добавлено через 1 минуту
Цитата Сообщение от Бякаааа Посмотреть сообщение
Можете называть меня как хотите
Мы бы назвали, но это противоречит правилам форума.

Не по теме:

Не обижайтесь, ничего личного.

0
pazlle
27 / 17 / 8
Регистрация: 02.11.2009
Сообщений: 176
29.04.2010, 21:51 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure Max(a,b:Tmatr; m,t:integer);
var i,j:integer;
     maxa,maxb:integer;
 maxa:=a[1];
 for i:=1 to n do
 if a[i]>maxa then begin maxa:=a[i];
                                  m:=i;
                           end;
maxb:=b[1];
 for j:=1 to n do
if b[i]>maxb then begin b[j]:=maxb;
                                   t:=j;
                end;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2010, 21:51

Процедуры: найти наименьшие элементы и номера строк и столбцов, в которых они расположены
найти наименьшие элементы и номера строк и столбцов, в которых они расположены...

Установить, имеются ли в данном двумерном массиве элементы, наибольшие ровно в одной из двух своих диагоналей
Помогите с задачей, пожалуйста:Установить, имеются ли в данном двумерном...

Найти минимальное из чисел, имеющих нечетные порядковые номера.
В текстовом файле содержится последовательность действительных чисел. Найти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru