Вывести максимальный элемент массива найти произведение элементов массива

Максимальный элемент массива в Pascal

Часто встречаются задачи, где необходимо найти максимальный элемент в массиве. Рассмотрим общий алгоритм решения такой задачи.

Первое, что придётся сделать – создать массив. Как нам уже известно, нужно использовать цикл с параметром. Также удобнее будет создать массив случайным образом, если в условии задачи не оговорён способ задания массива.

Алгоритм нахождения максимального элемента массива выполняется следующим образом.

Сначала указываем, что первый элемент массива считается максимальным, иначе говоря – Max = A[i].

Потом начинаем процесс сравнивания последующих элементов массива с максимальным элементом в массиве.

Тут возможно два случая :

1. Если максимальный элемент больше следующего, то ничего не меняем.
2. Если максимальный элемент меньше следующего, то он становиться максимальным.

После этого выводим на экран максимальный элемент.

Блок-схема максимальный элемент массива

Программа максимальный элемент массива Pascal

Ниже представлен текст программы на языке Pascal, как найти максимальный элемент массива. Как было указанно в алгоритме выше, сначала создается сам массив (в моем случает любые целые числа от 0 до 100 включительно).

Источник

Задачи нахождения минимального (максимального) элемента массива

В этой статье рассмотрены два способа нахождения минимального (максимального) элемента массива, а также задачи с применением этих способов.

1 способ

Исходные данные:

Результат:

10
5 -2 14 7 -4 23 0 8 6 -1

10
0 4 5 2 77 62 4 8 0 45

0

Считаем, что первый элемент массива – минимальный. Затем, сравниваем, начиная со второго до последнего все элементы массива с минимальным. Используем для этого цикл. Если очередной элемент на каком-то шаге цикла оказывается меньше минимального, то значение минимального изменяем, присвоив ему значение этого очередного элемента. По окончании цикла выводим результат: минимальный элемент.

program min1;
var a:array[1..100] of integer;
i,min,n:integer;
begin
//заполнение массива и вывод массива в строчку
readln(n);
for i:=1 to n do begin
a[i]:=random(-100,100);
write(a[i],’ ‘);
end;
//нахождение минимального элемента массива
min:=a[1];
for i:=2 to n do
if min>=a[i] then min:=a[i];
//вывод результата
writeln;
write(min);
end.

Заметим, что для нахождения максимального элемента массива достаточно заменить имя переменной min на max и знак >= на знак =a[i] then begin
imin:=i;
min:=a[i];
end;
//вывод результата
writeln;
write(imin);
end.

Если в массиве есть несколько равных между собой минимальных элементов, то данная программа найдет номер последнего (правого) элемента. Для того чтобы найти индекс первого (левого) элемента достаточно изменить знак >= на строгий знак >.
Эту программу можно оптимизировать, так как, зная индекс минимального элемента, можно найти значение минимального элемента массива. Значит, переменная min не нужна:

var a:array[1..100] of integer;
i,n,imin:integer;

Фрагмент нахождения индекса минимального элемента массива выглядит так:

imin:=1;
for i:=2 to n do
if a[imin]>=a[i] then imin:=i;

Исходные данные:

Результат:

10
5 -2 14 7 -4 23 0 8 -4 -1

10
0 4 5 2 77 0 4 8 0 45

3

program min3;
var a:array[1..100] of integer;
i,min,n,k:integer;
begin
//заполнение массива и вывод массива в строчку
readln(n);
for i:=1 to n do begin
a[i]:=random(-5,5);
write(a[i],’ ‘);
end;
//нахождение минимального элемента массива
min:=a[1];
for i:=2 to n do
if min>=a[i] then
min:=a[i];
//считаем количество равных элементов
k:=0;
for i:=1 to n do
if a[i]=min then k:=k+1;
//вывод результата
writeln;
write(k);
end.

Исходные данные:

Результат:

10
5 -2 14 7 -4 22 0 -8 -6 -1

10
0 4 5 -10 77 0 4 -12 0 45

-10

В этой задаче первый способ нахождения минимального не подойдет. Первый элемент массива может оказаться меньше, чем минимальный четный и не кратный четырем и программа выведет неверный результат. Каким должно быть начальное значение переменной min? Его нужно выбрать таким, чтобы для первого же «подходящего» элемента выполнилось условие a[i] 0) and (a[i] 0)) do i:=i+1;
//в переменной i запомнился номер первого элемента, удовлетворяющего условию
//нахождение минимального, начиная со следующего за найденным
min:=a[i];
for j:=i+1 to N do
if (a[j] mod 2=0) and (a[j] mod 4 <> 0) and (a[j] a[2] then begin
max1:=a[1]; max2:=a[2]
end
else begin
max1:=a[2]; max2:=a[1]
end;
// поиск второго максимального
for i:=3 to N do
if a[i] > max1 then begin
max2:= max1;
max1:= a[i]
end
else
if a[i] > max2 then max2:=a[i];
//вывод результата
writeln;
writeln(max2);
end.

Исходные данные:

Результат:

20
5 -2 14 7 -4 22 0 -8 -6 -1

10
0 4 5 -10 77 0 4 -12 0 45

45

Эта задача усложнена только тем, что элементы массива должны быть в диапазоне от 16 до 255. В этом случае первая цифра находится как результат деления нацело на 16, а вторая цифра – как остаток от деления на 16.

Кроме этого здесь массив можно объявить через константу n, так как размер массива задан явно: 20 элементов.

program z6;
//объявление массива через константу
const n=20;
var a: array [1..n] of integer;
i,min: integer;
begin
//заполнение массива и вывод массива в строчку
for i:=1 to n do begin
a[i]:=random(0,10000);
write(a[i],’ ‘);
end;
writeln;
min := 10001;
for i := 1 to n do begin
//для проверки правильности программы выведем две шестнадцатеричные цифры:
//write(a[i] div 16,a[i] mod 16,’ ‘);
if (16 a[i] mod 16) and (a[i] 18.06.2018

Источник

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Найти сумму максимальных элементов массивов
Массивы A, B, C заполнить целыми числами с помощью датчика случайных чисел. Найти сумму.

С помощью функции найти номера максимальных элементов массивов
Описать функцию MaxNum(A,N) целого типа, находящую номер максимального элемента вещественного.

Найти среднее значение среди максимальных элементов каждого из трёх массивов
Даны x, y, z. Вычислить a, b если: Используя подпрограммы-процедуры сформировать 3 массива.

Даны два массива. Найти сумму максимальных элементов этих массивов
Даны два массива. Найти сумму максимальных элементов этих массивов,если не затруднит,то с.

Решение

Сформировать вектор из максимальных элементов заданных массивов и найти его максимальное значение
Дано: массивы А(N1,M1), B(N2,M2), C(N3,M3). Сформировать вектор Р(3) из максимальных элементов.

Найти произведение отрицательных элементов всех массивов
1. Даны четыре вещественных массива состоящие из 5 элементов. Найти произведение отрицательных.

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

Вычислить сумму максимальных элементов массивов
Даны массивы L(5), M(8), N(10). Вычислить сумму максимальных элементов массивов L, M, N, т.е. .

Источник

BestProg

Массивы. Часть 3. Примеры решения наиболее распространенных задач с одномерными массивами

Содержание

Поиск на других ресурсах:

1. Нахождение сумм и произведений элементов массива. Примеры

Пример 1. Задан массив A , содержащий 100 целых чисел. Найти сумму элементов этого массива. Фрагмент кода, решающего эту задачу

Перебор всех элементов массива выполняется в цикле for .

Переменная sum сохраняет результирующее значение суммы элементов массива. Переменная i есть счетчиком, определяющим индекс элемента массива A[i] .

Пример 2. Задан массив B , содержащий 20 вещественных чисел. Найти сумму элементов массива, которые лежат на парных позициях. Считать, что позиции 0 , 2 , 4 и т.д. есть парными.

В этом примере выражение

определяет парную позицию (парный индекс) массива B . Если нужно взять нечетные позиции, то нужно написать

Пример 3. Задан массив, который содержит 50 целых чисел. Найти сумму положительных элементов массива.

Пример 4. Задан массив из 50 целых чисел. Найти произведение элементов массива, которые есть нечетными числами.

Чтобы определить, есть ли элемент массива A[i] нечетным, нужно проверить условие

Если условие выполняется, то элемент массива есть нечетное число.

2. Нахождение максимального (минимального) элемента массива. Примеры

Пример 1. Задан массив из 30 вещественных чисел. Найти элемент (индекс), имеющий максимальное значение в массиве.

В вышеприведенном примере переменная max содержит максимальное значение. Переменная index содержит позицию элемента, который имеет максимальное значение. В начале переменной max присваивается значение первого элемента массива. Затем, начиная со второго элемента, происходит прохождение всего массива в цикле for . Одновременно проверяется условие

Если условие выполняется (найден другой максимум), тогда новое значение максимума фиксируется в переменных max и index .

Вышеприведенный пример находит только один максимум. Однако, в массивах может быть несколько максимальных значений. В этом случае для сохранения позиций (индексов) максимальных значений нужно использовать дополнительный массив как показано в следующем примере.

Пример 2. Задан массив содержащий 50 целых чисел. Найти позицию (позиции) элемента, который имеет минимальное значение. Если таких элементов несколько, сформировать дополнительный массив индексов.

В вышеприведенном листинге сначала ищется минимальное значение min .

На втором шаге формируется массив INDEXES , в котором число элементов записывается в переменную n . Происходит поиск минимального значения в массиве A с одновременным формированием массива INDEXES .

На третьем шаге приведен пример, как вывести массив INDEXES в элементе управления listBox1 ( ListBox ).

3. Сортировка массива методом вставки

Пример. Пусть дан массив A , содержащий 10 целых чисел. Отсортировать элементы массива в нисходящем порядке с помощью метода вставки.

4. Поиск элемента в массиве. Примеры

Пример 1. Определить, находится ли число k в массиве M состоящем из 50 целых чисел.

Пример 2. Найти все позиции вхождения числа k в массиве M состоящим из 50 целых чисел.

Связанные темы

• Массивы. Часть 1. Определение массива в C++ . Одномерные массивы. Инициализация массива
• Массивы. Часть 2. Двумерные массивы. Массивы строк. Многомерные массивы

Программирование: теория и практика

Рубрики

• C# (160)
  • Практика (42)
    • MS Visual Studio 2010 (34)
    • MS Visual Studio 2017 (7)
    • MS Visual Studio 2019 (10)
  • Теория (118)
• C++ (129)
  • Практика (31)
    • Borland C++ Builder 2007 (16)
    • MS Visual Studio 2010 (18)
  • Теория (99)
    • Visual C++ (94)
• Delphi (32)
  • Практика (19)
    • Delphi-7 (3)
    • Embarcadero RAD Studio 2010 (17)
  • Теория (13)
• Java (89)
  • Практика (6)
  • Теория (83)
• Kotlin (13)
  • Практика (1)
  • Теория (12)
• Python (85)
  • Практика (4)
  • Теория (81)
• Базы данных (42)
• Компьютерная графика (3)
• Курсовые работы (7)
• Математическое ПО (9)
• Паттерны (18)

Свежие записи

• Patterns. Паттерн Chain of Responsibility. Пример реализации на Java 3 ноября, 2021
• Python. Модуль cmath. Работа с комплексными числами. Тригонометрические функции 27 октября, 2021
• Python. Операции форматирования строк 19 октября, 2021
• Python. Генераторы списков для матричных операций 17 октября, 2021
• C++. Класс vector. Методы, обеспечивающие доступ к элементам массива 15 октября, 2021
• C++. Класс vector. Методы, изменяющие данные в массиве 15 октября, 2021
• C++. Класс vector. Методы, определяющие и изменяющие общие характеристики массива 12 октября, 2021
• C++. Класс vector. Динамический массив. Общие сведения 10 октября, 2021
• Python. Комплексные числа. Модуль cmath. Функции преобразования в полярные координаты 9 октября, 2021
• Kotlin. Функции с единственным выражением. Тип Unit 7 октября, 2021

При использовании материалов сайта, ссылка на сайт обязательна.

Источник

Вам также может понравиться

Можно ли стирать кожзам куртку вручную

Как в домашних условиях постирать куртку из кожзама

Как вывести цемент с ткани

Как отстирать от одежды цемент, удалить затвердевший

Что отмоет черные полосы с линолеума

Все секреты чистки линолеума Казалось бы, линолеум

Что отмоет черную краску для волос с рук

Секреты и советы, как и чем смыть краску для волос

Что будет если не чистить кондиционер после зимы

Что будет если не чистить кондиционер после зимы При

Чем можно отмыть пожелтевший пластик

Доступные и недорогие способы, как убрать желтизну

Чем можно отмыть мотор машины

Чем отмыть двигатель от масла и грязи в домашних условиях

Чем можно отмыть клейкую ленту с пластиковых окон

Средства для удаления следов скотча на пластиковом