Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 20.11.2011
Сообщений: 11
1

Поиск минимума/максимума и их индексов:

20.11.2011, 13:04. Показов 1362. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a:array[1..100]of integer;
N,i,min,max:integer;
 
begin
 write('N -> ');
 readln(N); {считываем размер массива}
 write('Input array -> ');
 for i:=1 to N do read(a[i]); {считываем сам массив}
 readln;
 min:=1;
 max:=2;
 for i:=1 to N do if a[i] > a[max] then max:=i else if a[i] < a[min] then min := i;
 writeln('MAX = A[',max,'] = ', a[max]);
 writeln('MIN = A[',min,'] = ', a[min]);
 readln;
end.

Здраствуйте. А будет ли работать этот алгоритм с таким массивом : 3_4_5_6_7 ?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2011, 13:04
Ответы с готовыми решениями:

нахождение максимума и минимума.
здравствуйте!помогите пожалуйста найти ошибку в решении задачи. дан файл,содержащий числа.Найти в...

Смена максимума и минимума в массиве
Здравствуйте!!! Задан массив, найти максимум и минимум и поменять их местами. Код программы......

Полусумма максимума и минимума трёх чисел
Даны три целых числа A,B,C, причём все числа различные . Если полусумма максимума и минимума...

Найти среднее арифметическое Sr максимума и минимума массива.
Ввести одномерный массив А , вывести его. Найти среднее арифметическое Sr максимума и минимума...

2
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
20.11.2011, 13:40 2
Работает, а в чем проблема?

Добавлено через 1 минуту
Только считыает на 1 число больше из-за этой строчки в девятой строке
Цитата Сообщение от ch_perch Посмотреть сообщение
readln;
0
0 / 0 / 0
Регистрация: 20.11.2011
Сообщений: 11
20.11.2011, 16:09  [ТС] 3
Упс! невнимательность....
Извините пожалуйста, плохо прочитал заголовок " Поиск минимума/максимума и их индексов"
Почему-то я думал что находят 1ый и 2ой максимумы((((
Все отлично!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2011, 16:09

Процедуры нахождения максимума и его индексов в матрице
Оформить как процедуру процесс нахождения максимума и его индексов в матрице. Оформить как функцию...

Вывести на экран символы, у которых код равен среднему арифметическому минимума и максимума кода строки
Задание в турбо паскале. Звучит следующим образом: 1)Вывести из строки символы, у которых max и...

Найти сумму максимума среди чётных и минимума среди нечётных элементов массива
1. Дан одномерный массив. Найти сумму максимума среди чётных и минимума среди нечётных. 2. Дана...

Поиск минимума
1. Пользователь вводит число целое неотрицательное число n (не превосходящее 100), а затем он...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru