Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Otofobec
0 / 0 / 0
Регистрация: 25.10.2013
Сообщений: 2
#1

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

25.10.2013, 17:51. Просмотров 263. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как найти индекс максимального и минимального элементов? (Pascal ABC):

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

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

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

Найти разность максимального и минимального элементов последовательности - Pascal ABC
найти разность максимального и минимального элементов последовательности. Написать прог и составить блок-схему

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

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

2
chizz
982 / 499 / 54
Регистрация: 19.03.2013
Сообщений: 3,095
Записей в блоге: 18
Завершенные тесты: 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 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Найти сумму модулей минимального и максимального элементов массива - Pascal ABC
задать случайным образом из промежутка и (-9;9) одноименный массив А из 15 элементов. найти сумму модулей минимального и максимального...

В двумерном массиве найти сумму максимального и минимального элементов - Pascal ABC
В двумерном массиве найти сумму максимального и минимального элементов, если она меньше нуля, тогда все отрицательные элементы матрицы,...

Найти среднее арифметическое минимального и максимального элементов из 10 введенных - Pascal ABC
1. Даны величины углов треугольника. Определить является ли это треугольник: а) остроугольным б) тупоугольным 2. Найти среднее...


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

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

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