1. Написать программу, которая вычисляет среднюю (за неделю) температуру воздуха. Исходные данные должны вводиться с клавиатуры.
2. Найти наименьший из положительных элементов массива.
3. Отрицательные элементы массива заменить нулями, положительные — единицами.
4. Найти среднее арифметическое максимального и минимального элементов массива.
5. Найти наибольший из отрицательных элементов массива.
6. Найти наименьший по модулю элемент массива.
7. Найти сумму всех неотрицательных элементов массива.
8. Найти произведение отрицательных элементов массива.
9. Найти количество элементов массива, превышающих 3-й элемент массива.
10. Количество положительных элементов массива.
11. Элементы массива, кратные двум, умножить на номер этих элементов, остальные разделить на номер соответствующих элементов.
12. Определить, сколько элементов массива больше, чем число 5.
13. Количество отрицательных элементов массива.
14. Найти разность между наибольшим и наименьшим элементами массива.
НАЙТИ НАИМЕНЬШИЙ ЭЛЕМЕНТ МАССИВА C# | РАБОТА С МАССИВАМИ | СИ ШАРП УРОКИ | ДОМАШНИЕ ЗАДАНИЯ # 9
15. Найти сумму элементов массива, не превышающих число 7.
16. Найти сумму всех элементов массива, имеющих четные индексы.
17. Определить, сколько раз встречается число 7 среди элементов массива.
18. Отрицательные элементы массива заменить их модулями, положительные – умножить на два.
19. Определить, сколько элементов массива меньше, чем число 6.
20. Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел.
21. Найти среднее арифметическое всех положительных элементов массива.
22. Найти среднее арифметическое всех отрицательных элементов массива.
23. Найти произведение всех элементов массива, имеющих нечетные индексы.
24. Проверить, есть ли в заданной целочисленной последовательности a1, a2. aN элементы, равные нулю. Если есть, найти номер первого из них, если нет – выдать соответствующий текст.
25. Выяснить, имеются ли в заданном векторе A(N) два подряд идущих нулевых элемента.
26. Выяснить, имеются ли в заданном целочисленном векторе A(N) три подряд идущих элемента одного знака.
27. Множество точек в пространстве задано своими целочисленными координатами. Определить, совпадает ли хотя бы одна из точек с началом координат.
28. Найти целую часть среднего геометрического всех положительных элементов массива.
29. Найти дробную часть среднего геометрического всех отрицательных элементов массива.
30. Если у заданного вектора A(N) есть хотя бы один элемент, меньший, чем –5, то все отрицательные элементы заменить их квадратами, оставив остальные элементы без изменения; в противном случае вектор домножить на 0,1.
31. Имеется последовательность чисел a1, a2. aN. Найти сумму первых из них (считая слева направо), произведение которых не превышает заданного числа М.
32. Проверить, все ли элементы заданного массива A(N) положительны.
Python5.4 Массивы. Поиск минимального и максимального элементов и их номеров
33. Имеется монотонно убывающая последовательность чисел a1, a2. aN. Определить квадрат суммы положительных членов этой последовательности.
34. Определить, имеется ли в заданном целочисленном массиве X(N) число, кратное заданным числам А и В, и не кратное числу С.
4. 2. Составить программу определения значений указанных ниже параметров линейного массива. (Организовать вывод элементов на экран).
1. Выдать массив в обратном порядке.
2. Максимальный и минимальный элементы массива заменить на обратные им.
3. Найти наибольший из элементов массива, имеющих нечетные индексы.
4. Найти наименьшее из чисел а[1], 2∙а[2], 3∙а[3],…, 8∙а[8].
5. Найти наибольшее из чисел 2∙а[1], 3∙а[2], 4∙а[3],…, 9∙а[8].
6. Найти сумму а[1] +2∙а[2] +3∙а[3] +…+ 8∙а[8].
7. Отсортировать массив в порядке убывания элементов.
8. Написать программу, которая проверяет, сколько раз введенное с клавиатуры число встречается в массиве.
9. Написать программу, которая проверяет, представляют ли элементы введенного с клавиатуры массива неубывающую последовательность.
10. В массиве целых чисел определить количество и сумму чисел, которые являются средним арифметическим соседних элементов, т.е. удовлетворяю условию: a[k] < (a[k-1] +a[k+1])/2. Вывести на экран числа, имеющие четные порядковые номера и являющихся нечетными числами.
11. В массиве целых чисел а[1], а[2], а[3],…, а[10], найти те члены последовательности, которые:
a. являются нечетными удвоенными числами;
b. при делении на 7 дают остаток 1,2 или 5;
c. обладают тем свойством, что корни уравнения x 2 +3a[i]=5 действительны и положительны.
12. В массиве целых чисел а[1], а[2], а[3],…, а[30], найти сумму тех членов последовательности, которые:
a. являются нечетными и отрицательными числами;
b. кратны 5 и не кратны 8;
c. удовлетворяют условию: | a[i] | < i 2 .
13. Дан массив целых чисел а[1], а[2], а[3],…, а[10], и натуральные числа p и q. В массиве найти те члены последовательности, модуль которых при делении на p дает в остатке q:
a. сначала эти элементы вывести на экран, причем перед выводом каждого элемента на экране должна появляться подсказка с его номером.
b. Потом эти элементы заменить нулями;
c. Вывести на экран получившийся массив.
14. Найти сумму а[1] +(а[2]) 2 +(а[3]) 3 +…+ (а[8]) 8 .
15. Дан массив целых чисел а[1], а[2], а[3],…, а[10]. Вычислить произведение тех элементов массива, для которых выполнено: i +1
16. Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит количество ненулевых элементов.
Все нулевые элементы с четными индексами заменить на 1, а нулевые элементы с нечетными индексами на -1. вывести получившийся массив на экран. Перед выводом каждого элемента на экране должна появляться подсказка с его номером.
17. Даны два массива а[1], а[2], а[3],…, а[10] и b[1], b[2], b[3],…, b[10]. Получить массив с[1], с[2], с[3],…, с[10], каждые элемент которого вычисляется по формуле: с[i]= а[i] + b[i], iÎ[1;n).
18. Написать программу, которая проверяет, находится ли в массиве введенное с клавиатуры число. Массив должен вводится во время работы программы. Как только данное число обнаружилось в массиве его выполнение должно быть прервано и это число выведено на экран, причем перед выводом этого элемента на экране должна появляться подсказка с его номером.
19. Число, сумма цифр которого была бы наибольшей. Если таких чисел несколько, вывести на экран все эти числа.
20. Задано натуральное число (его надо ввести с клавиатуры). Определить все его делители и осуществить проверку данных при вводе.
21. В массиве целых чисел найти число, сумма цифр которого была бы наибольшей. Если таких чисел несколько, вывести на экран все эти числа.
22. Написать программу, которая выводит минимальный элемент введенного с клавиатуры массива целых чисел. Перед вводом каждого элемента на экране должна появляться подсказка с его номером.
23. Написать программу, которая проверяет, представляют ли элементы введенного с клавиатуры массива возрастающую последовательность.
24. Все элементы заданного вектора A(N), начиная с первого по порядку положительного элемента, уменьшить на единицу.
25. Выяснить, имеется ли среди чисел i 3 – 17• i• n2 + n3, i=1. n, хотя бы одно число, которое кратно заданному числу А и не кратно числу В (A<>B). При существовании такого числа требуется вычислить сумму всех тех элементов, которые предшествовали ему.
26. Если в заданном целочисленном векторе A(N) есть элементы со значением, равным заданному числу B, то переменной С присвоить значение, равное сумме всех элементов, предшествующих первому по порядку такому элементу; в противном случае вывести соответствующий текст.
27. Определить, имеется ли в заданном массиве A(N) хотя бы одна пара соседних чисел, являющихся взаимообратными.
28. Определить, выполняются ли для заданного вектора A(2N) условия: а1=а2N, a2= a2N–1. aN= aN+1, т.е. является ли он симметричным относительно своей середины.
29. Имеется монотонно убывающая последовательность чисел a1, a2. aN. Определить квадрат суммы положительных членов этой последовательности.
30. Если в заданном целочисленном векторе A(N) есть элементы со значением, равным заданному числу B, то переменной С присвоить значение, равное произведению всех элементов, следующих за первым по порядку таким элементом; в противном случае вывести соответствующий текст.
31. Определить, имеется ли в заданном целочисленном массиве X(N) число, кратное заданным числам А и В, и не кратное числу С.
32. Все элементы заданного вектора A(N), начиная с первого по порядку положительного элемента, уменьшить на единицу.
33. Числа Фибоначчи (Fi) определяются по формулам F0 = F1= 1; Fi = Fi–1+ Fi–2 при i = 2, 3. Найти первое из чисел Фибоначчи, которое превосходит заданное число M (M>0).
34. Выяснить, имеется ли среди чисел i 3 – 17• i• n2 + n3, i=1. n, хотя бы одно число, которое кратно заданному числу А и не кратно числу В (A<>B). При существовании такого числа требуется вычислить сумму всех тех элементов, которые предшествовали ему.
35. Если в заданном целочисленном векторе A(N) есть элементы со значением, равным заданному числу B, то переменной С присвоить значение, равное сумме всех элементов, предшествующих первому по порядку такому элементу; в противном случае вывести соответствующий текст.
36. Определить, имеется ли в заданном массиве A(N) хотя бы одна пара соседних чисел, являющихся взаимообратными.
37. Определить, выполняются ли для заданного вектора A(2N) условия: а1=а2N, a2= a2N–1. aN= aN+1, т.е. является ли он симметричным относительно своей середины.
38. Если в заданном целочисленном векторе A(N) есть элементы со значением, равным заданному числу B, то переменной С присвоить значение, равное произведению всех элементов, следующих за первым по порядку таким элементом; в противном случае вывести соответствующий текст.
Дополнительные задачи:
39. Числа Фибоначчи (Fi) определяются по формулам F0 = F1= 1; Fi = Fi–1+ Fi–2 при i = 2, 3. Найти первое из чисел Фибоначчи, которое превосходит заданное число M (M>0).
40. Реализовать программу, которая для массива из N действительных чисел, вводимых с клавиатуры, определяет, является ли введенная последовательность арифметической или геометрической прогрессией, и в случае, если последовательность является прогрессией, то выводит ее показатель на экран.
42. Для последовательности целых чисел определите количество элементов самой длинной неубывающей подпоследовательности.
4.3 Составить программу обработки матрицы размерности NxN:
В программе предусмотреть вывод всей матрицы на экран, а также вывод результата указанного ниже задания.
1. Заменить отрицательные элементы матрицы нулями.
2. Элементы матрицы, стоящие на главной диагонали заменить единицами.
3. Определить номер столбца, содержащего наименьший элемент матрицы.
4. Определить положение наименьшего элемента в матрице.
5. Определить положение наибольшего элемента в матрице.
6. Определить номер строки с наибольшим из отрицательных элементов.
7. Определить номер строки с наименьшей суммой элементов.
8. Определить номер столбца с наибольшей суммой элементов.
9. Определить номер столбца с наименьшим отрицательным элементом.
10. Определить сумму диагональных элементов матрицы.
11.. Определить номер столбца с наименьшим из положительных элементов.
12. Определить, имеются ли среди элементов побочной диагонали заданной целочисленной матрицы A(N,N) числа, равные нулю.
13. Дана матрица A(N,N). Переменной В присвоить значение, равное количеству строк матрицы А, содержащих хотя бы одну нулевую компоненту.
14. Дана матрица B(N,N). Получить вектор A(N), компоненты которого находятся по правилу: Ai равно первому по порядку положительному элементу в i-ой строке матрицы (если таких элементов в строке нет, то принять Ai = –1).
15. Среди строк заданной целочисленной матрицы, содержащих только нечётные элементы, найти строку с максимальной суммой модулей элементов.
16. Среди столбцов заданной целочисленной матрицы, содержащих только такие элементы, которые по модулю не больше 10, найти столбец с минимальным произведением элементов.
17. Задано два множества точек на плоскости. В первом множестве найти хотя бы одну точку, сумма расстояний от которой до точек второго множества превышала бы заданную величину.
18. В заданной матрице A(N,M) найти количество строк, не содержащих отрицательных чисел.
19. Дана целочисленная матрица А(N,N). Сформировать результирующий вектор B, элементами которого являются суммы элементов только тех строк матрицы А, которые начинаются с К положительных чисел подряд.
20. Подсчитать количество столбцов заданной целочисленной матрицы A(N,N), в которых имеются взаимнопротивоположные соседние числа.
21. Дана матрица A(N,M). Построить вектор B(N), элементы Bi которого равны единице, если элементы i-ой строки образуют упорядоченную по убыванию или по возрастанию последовательность, и нулю во всех остальных случаях.
22. Определить, сколько строк заданной матрицы A(N,M) содержат хотя бы один элемент из заданного числового диапазона.
23. Найти номера строк заданной целочисленной матрицы A(N, M), в которых:
a. на всех нечётных позициях стоят нули;
b. на нечетных позициях встречаются нули.
24. Найти номера столбцов заданной целочисленной матрицы A(N, M), которые составлены из попарно различных чисел, и подсчитать количество таких столбцов.
25. Даны сведения о количестве забитых голов каждого футболиста команды в каждом из матчей чемпионата. Проверить, сколько в команде есть футболистов:
a. забивших хотя бы два гола;
b. забивавших голы в каждом матче;
c. не забивших ни одного гола.
26. Используя сведения о ежемесячных выплатах зарплаты сотрудникам фирмы, выяснить, не оказалась ли годовая зарплата кого-либо из сотрудников ниже годового минимума, оговоренного в его контракте.
27. Используя сведения о результатах сдачи n вступительных экзаменов m абитуриентами, определить, сколько абитуриентов сдали все экзамены на «отлично».
Источник: infopedia.su
Написать программу которая выводит минимальный элемент введенного с клавиатуры массива целых чисел
Найдите правильный ответ на вопрос ✅ «Написать программу которая выводит минимальный элемент введенного с клавиатуры массива целых чисел . » по предмету Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Новые вопросы по информатике
Написать программу, которая выводит на экран результаты следующих действий: 27-5= 11+21= 32/2= 2+2*2= (2+2) * 2= Написать программу, которая выводит на экран результаты следующих действий: 21-4= 21+11= 43/3= 3+3*3= (3+3) * 3=
Вариант 2 1. Даны три числа. Найдите сумму второго и третьего числа. Найдите квадрат первого числа. 2. Даны длины сторон прямоугольника. Найдите площадь прямоугольника. 3. Даны длины катетов прямоугольного треугольника.
Найдите периметр треугольника.
Почему при А=1, В=1, С=1 ответ АVВ равно 1?
2. Какое значение будет иметь переменная b после выполнения следующих операторов присваивания: a:=3; b:=a+9; b:=a+b; b:=a-b+b/a. 3.
Найдите наиболее точное общее имя каждой группе объектов: з) клавиатура, сканер, мышь
Главная » Информатика » Написать программу которая выводит минимальный элемент введенного с клавиатуры массива целых чисел
Источник: iotvet.com
Типовые задачи обработки массивов: заполнение массивов, поиск максимального и минимального элемента
В этом уроке учащиеся продолжат рассматривать массивы и начнут изучение алгоритмов, которые наиболее часто используются для их обработки: различные варианты заполнения массивов и поиск максимального и минимального элемента в них. Будет рассмотрен принцип работы этих алгоритмов, а также их программирование на языкеPascal.
В данный момент вы не можете посмотреть или раздать видеоурок ученикам
Чтобы получить доступ к этому и другим видеоурокам комплекта, вам нужно добавить его в личный кабинет.
Получите невероятные возможности
1. Откройте доступ ко всем видеоурокам комплекта.
2. Раздавайте видеоуроки в личные кабинеты ученикам.
3. Смотрите статистику просмотра видеоуроков учениками.
Получить доступ
Конспект урока «Типовые задачи обработки массивов: заполнение массивов, поиск максимального и минимального элемента»
· Поиск максимального и минимального элементов в массиве.
Часто при решении некоторых задач, массив требуется заполнить некоторыми значениями, например, случайными числами. Вспомним, как можно сгенерировать случайное число. Для этого в языке Pascal есть 2 функции. Функция random без параметров, возвращает вещественное случайное число на промежутке [0; 1). Функция random с целочисленным параметром a, возвращает случайное целое число на промежутке от нуля до a — 1.
При помощи обеих функций можно получить случайное число на некотором промежутке [a; b). Если нам нужно вещественное число на указанном промежутке, то мы используем первую функцию, после чего умножим результат на b – a. Таким образом, мы получим случайное вещественное число на промежутке [0, b-a). К полученному числу остаётся прибавить a и мы получим случайное число на указанном промежутке.
random () * (b – a) + a
Случайное вещественное число на промежутке [a; b)
Если же нам нужно целое число на указанном промежутке — мы используем вторую функцию, сгенерировав целое случайное число на промежутке [0, b-a). После чего нам останется лишь просуммировать полученное число и a.
Случайное целое число на промежутке [a; b)
Написать программу, которая:
1. Заполняет массив из n элементов случайными целыми числами на промежутке [-50; 50).
2. Выводит заполненный массив на экран.
Напишем программу для решения задачи. Назовём её test. Для работы программы нам потребуется массив a из 100 элементов. Элементы массива будут целыми числами на промежутке [-50; 50), поэтому объявим их принадлежащими к целочисленному типу shortint. А также переменные: n – для хранения размерности массива, i – индекс текущего элемента.
Обе они будут принимать целочисленные положительные значения не больше ста, поэтому объявим их принадлежащими к целочисленному типу byte.
Напишем логические скобки. Тело программы будет начинаться с оператора writeln, который будет выводить на экран сообщение о том, что это программа, заполняющая массив из n элементов случайными числами. Дальше напишем оператор write, выводящий запрос на ввод n, и оператор readln, считывающий его значение. Теперь напишем цикл для заполнения массива случайными числами.
Это будет цикл с параметром i, изменяющимся от 1 до n. Он будет содержать команду присваивания i-тому элементу массива А значения равного случайному числу на указанном промежутке. Для того чтобы сгенерировать случайное число на промежутке [-50; 50) нужно записать разность случайного числа на промежутке [0; 100), которое сгенерируем функцией random (100), и числа 50.
Таким образом, мы заполнили первые n элементов массива a случайными числами в указанном промежутке, теперь выведем его на экран. Сначала запишем оператор write, выводящий сообщение о том, что это получившийся массив и двоеточие. Теперь запишем цикл для вывода элементов массива. Это будет цикл for i:=1 to n do. Он будет содержать оператор write, который будет выводить на экран символ пробела и значение i-того элемента массива a.
program test;
a: array [1..100] of shortint;
writeln (‘Программа, заполняющая массив из n элементов случайными числами.’);
for i:=1 to n do
write (‘Получившийся массив:’);
for i:=1 to n do
Исходный код программы
Запустим программу на выполнение и зададим n = 7. Программа действительно вывела семь элементов массива со значениями на промежутке [-50; 50).
Программа работает правильно. Задача решена.
Изменим написанную программу, чтобы массив заполнялся случайными вещественными числами на указанном промежутке. Для этого, прежде всего, изменим тип элементов массива на тип single. После этого изменим цикл заполнения массива, i-тому элементу массива будем присваивать значение разности произведения случайного числа до единицы, которое генерируется функцией random () и числа 100, а также числа 50. После этого изменим оператор вывода i-того элемента массива. Сделаем так, чтобы в нём выводилось 2 знака после запятой.
program test;
a: array [1..100] of single;
writeln (‘Программа, заполняющая массив из n элементов случайными числами.’);
for i:=1 to n do
write (‘Получившийся массив:’);
for i:=1 to n do
Изменённый код программы
Снова запустим программу на выполнение и введём n = 5. Программа действительно вывела 5 вещественных элементов массива со значениями на указанном промежутке.
Программа работает правильно.
Часто встречаются задачи, в которых необходимо каким-то образом заполнить двумерный массив. Рассмотрим одну из них.
Задача: Заполнить квадратную матрицу из символов размерностью 10×10 элементов таким образом, чтобы выше главной диагонали располагались символы x, на главной диагонали – символы y, а ниже главной диагонали – символы z. Вывести заполненную матрицу на экран.
Главной диагональю квадратной матрицы называется линия, которую можно провести от первого элемента первой строки к последнему элементу последней строки. Таким образом, на главной диагонали располагаются элементы матрицы, выделенные красным цветом. Выше главной диагонали располагаются элементы синего цвета, а ниже главной диагонали – элементы зелёного цвета. При решении задачи важно понимать, что в индексах элементов массива, находящихся на главной диагонали, номер строки, назовём его i, равен номеру столбца, назовём его j. В элементах, находящихся выше главной диагонали, i j, в элементах находящихся ниже главной диагонали – напротив i j.
Напишем программу для решения задачи. Назовём её matrica. Для работы программы объявим двумерный массив a, размерностью 10 на 10 элементов символьного типа char. Так же, нам понадобятся переменные i и j, в которых будем перебирать индексы элементов массива. Они будут принимать значения на промежутке от 1 до 10, поэтому объявим их, принадлежащими к целочисленному типу byte.
Запишем логические скобки. Тело программы будет начинаться с цикла for i:=1 to 10 do, который будет перебирать номера строк массива. В нём будет вложенный цикл for j:=1 to 10 do, который будет перебирать номера столбцов массива. Внутри цикла запишем условный оператор, который будет проверять, находится ли элемент массива на главной диагонали.
Его условием будет i = j. После слова then в этом условном операторе будет следовать оператор присваивания элементу массива с индексом i, j символа y. После слова else будет следовать ещё один условный оператор, который будет проверять находится ли элемент массива выше главной диагонали. Его условием будет i j.
После слова then в нём будет следовать оператор присваивания элементу a[i, j] символа x. Если условие в этом операторе не будет выполняться, значит элемент находится ниже главной диагонали, поэтому после слова else запишем оператор присваивания текущему элементу массива символа z.
Теперь запишем цикл для вывода элементов массива. Это будет цикл for i:=1 to 10 do. В этом цикле в логических скобках будет записан такой же цикл, но с параметром j. Он будет содержать оператор write, который будет выводить на экран элемент a[i, j]. После внутреннего цикла будет следовать оператор writeln без параметров, для перехода на следующую строку.
program matrica;
a: array [1..10, 1..10] of char;
for i:=1 to 10 do
for j:=1 to 10 do
then a[i, j]:=’y’
then a[i, j]:=’x’
else a[i, j]:=’z’;
for i:=1 to 10 do
for j:=1 to 10 do
Исходный код программы
Запустим программу на выполнение. Программа действительно вывела на экран описанную матрицу символов.
Программа работает правильно. Задача решена.
Задача: В заданном одномерном массиве из n целых чисел найти элемент с наибольшим значением и вывести его номер на экран. Если таких элементов несколько – вывести номер первого из них.
Для решения этой задачи мы будем проверять, элементы массива от первого к последнему. Сначала мы предположим, что элемент с наибольшим значением первый и запомним его номер. После этого, мы будем сравнивать с ним элементы массива начиная со второго, пока элементы массива не закончатся. Если мы найдём элемент массива больший, чем предполагаемый, то предположим, что он наибольший, запомним его номер и будем сравнивать его с оставшимися элементами. Перебрав все элементы массива, мы докажем, что предполагаемый элемент действительно наибольший.
Напишем программу для решения задачи. Назовём её max. Для работы программы нам потребуется массив, назовём его a. Укажем, что он будет состоять из 100 элементов типа integer. Также нам потребуется ещё несколько переменных: размерность массива – n, номер текущего элемента – i и номер наибольшего элемента – m. Объявим их принадлежащими к целочисленному типу byte.
Запишем логические скобки. Тело программы будет начинаться с оператора writeln, который будет выводить на экран сообщение от том, что это программа поиска в массиве наибольшего из элементов. Дальше будет следовать оператор write, выводящий на экран запрос на ввод n, а также оператор readln, считывающий его значение. Теперь запишем цикл для ввода элементов массива.
Это будет цикл с параметром i, изменяющимся от 1 до n. В логических скобках запишем тело цикла. Оно будет содержать оператор write, выводящий на экран запрос на ввод i-того элемента массива, и оператор readln, считывающий его значение. Теперь будем искать максимальный элемент массива.
Предположим, что максимальным является первый элемент массива, поэтому присвоим переменной m значение 1. Дальше запишем цикл для перебора последующих элементов массива. Это будет цикл for i:=2 to n do. Он будет содержать условный оператор, который будет проверять больше ли текущий элемент массива предполагаемого.
Его условием будет то, что i-тый элемент массива больше элемента массива с индексом m. Если это условие выполняется, то текущий элемент массива больше предполагаемого, поэтому мы должны предположить, что он наибольший. Для этого после слова then в этом условном операторе, напишем оператор присваивания m:=i. По окончании работы цикла переменная m будет содержать номер максимального элемента массива. Напишем оператор write, который будет выводить на экран сообщение о том, что первым из наибольших является элемент массива с номером m.
program max;
a: array [1..100] of integer;
writeln (‘Программа поиска в массиве из n элементов наибольшего.’);
for i:=1 to n do
for i:=2 to n do
write (‘Первым из наибольших является элемент с номером ‘, m);
Исходный код программы
Запустим программу на выполнение. Зададим массив из 5 элементов, равных соответственно: 8, 14, 9, 17, 2. Программа вывела сообщение о том, что массива первый из наибольших элемент с номером 4.
Ещё раз запустим программу. Зададим массив из 4 элементов, равных соответственно: 3, 11, 9, 11. Программа вывела сообщение о том, что второй элемент массива первый из наибольших.
Программа работает правильно. Задача решена.
Изменим нашу программу, так чтобы она искала первый из наименьших элементов массива. Для этого в первом операторе вывода изменим слово «наибольшего» на «наименьшего». В условии условного оператора, в последнем цикле программы, изменим знак «больше» на противоположный. В последнем операторе вывода в сообщении изменим третье слово на слово «наименьших».
program max;
a: array [1..100] of integer;
writeln (‘Программа поиска в массиве из n элементов наименьшего.’);
for i:=1 to n do
for i:=2 to n do
write (‘Первым из наименьших является элемент с номером ‘, m);
Исходный код программы
Снова запустим программу на выполнение и зададим массив из 4 элементов равных соответственно: 8, 3, 1, 5. Программа вывела сообщение о том, что третий элемент массива первый из минимальных.
Программа работает правильно.
Источник: videouroki.net