Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Otofobec
0 / 0 / 1
Регистрация: 25.10.2013
Сообщений: 2
#1

Как найти индекс максимального и минимального элементов?

25.10.2013, 17:51. Просмотров 269. Ответов 2
Метки нет (Все метки)

Найти в таблице максимальный и минимальный элемент и определить какой из них располагается раньше. Мне нужно только 2-ую часть. Желательно из моего начала решения:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var N,i,max,min : integer;
s:real;
A:ARRAY[1..100] of integer;
begin
cls;
write('N=');read(n);
for i:=1 to N do begin
read(A[I]);
end;
max:=A[1];
min:=A[1];
for i:=1 to N do begin
if a[i]>max then  max:=A[i] ;
if a[i]<min then  min:=a[i];
end;
end.
Зарание спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.10.2013, 17:51
Ответы с готовыми решениями:

В двумерном массиве найти индекс максимального и минимального элемента
Программа выдает ошибку: нельзя преобразовать тип real к integer. Суть...

Найти сумму минимального и максимального элементов
Найти сумму минимального и максимального элементов.

Найти сумму минимального и максимального элементов
Найти сумму минимального и максимального элементов.

Найти разность максимального и минимального элементов последовательности
найти разность максимального и минимального элементов последовательности....

Найти разность максимального и минимального элементов массива
Ребята help!!! Нужно решить следующую задачу: Создать масив 12 на 12 с...

2
chizz
983 / 501 / 101
Регистрация: 19.03.2013
Сообщений: 3,106
Записей в блоге: 19
Завершенные тесты: 1
25.10.2013, 17:56 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var N,i,max,min,max_ind,min_ind : integer;
s:real;
A:ARRAY[1..100] of integer;
begin
cls;
write('N=');read(n);
for i:=1 to N do begin
read(A[I]);
end;
max:=A[1];
min:=A[1];
for i:=1 to N do begin
if a[i]>max then begin max:=A[i] ; max_ind:=i; end;
if a[i]<min then begin min:=a[i]; min_ind:=i; end;
end;
 
if max_ind>min_ind then writeln('максимальный раньше') else writeln('минимальный раньше');
end.
1
Otofobec
0 / 0 / 1
Регистрация: 25.10.2013
Сообщений: 2
25.10.2013, 19:18  [ТС] #3
Цитата Сообщение от chizz Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var N,i,max,min,max_ind,min_ind : integer;
s:real;
A:ARRAY[1..100] of integer;
begin
cls;
write('N=');read(n);
for i:=1 to N do begin
read(A[I]);
end;
max:=A[1];
min:=A[1];
for i:=1 to N do begin
if a[i]>max then begin max:=A[i] ; max_ind:=i; end;
if a[i]<min then begin min:=a[i]; min_ind:=i; end;
end;
 
if max_ind>min_ind then writeln('максимальный раньше') else writeln('минимальный раньше');
end.
Спасибо, я писал что-то похожее, но не работает. Всегда выдаёт "максимальное раньше", даже если это не так.

Добавлено через 39 минут
Спасибо, равзобрался. Оказалось у меня паскаль баганый или я кривой, но всегда выдаёт такой ответ, который был 1-ый раз после запуска паскаля. Тему можно закрыть.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2013, 19:18

Найти произведение его максимального и минимального элементов массива
в заданном массиве P(N) найти произведение его максимального и минимального...

Найти произведение максимального и минимального элементов диагонали матрицы
Сформировать массив а, элементы которого выбираются случайным образом из...

В двумерном массиве найти сумму максимального и минимального элементов
В двумерном массиве найти сумму максимального и минимального элементов, если...


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

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

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