Ниже представлен пример поиска минимального и максимального элемента в двумерном массиве на языке Pascal . Дополнительно подключение генератор простых чисел для быстрого заполнения данных.
var a:array[1..3,1..3] of integer; min:integer; max:integer; i,j:integer; begin randomize; writeln(‘Искомый массив 3 на 3’); for i:=1 to 3 do for j:=1 to 3 do begin a[i,j]:=random(100); if j<>3 then write(‘ ‘, a[i,j]) else writeln(‘ ‘,a[i,j]); end; min:=MAXINT; max:=not(MAXINT); for i:=1 to 3 do for j:=1 to 3 do begin if min>a[i,i] then min:=a[i,j]; if max
Похожие записи/страницы:
- Поиск простых чисел — Pascal(Паскаль)
- Дан массив целых чисел. Найти минимальный элемент в массиве. Вставить после минимального элемента первый элемент этого…
- Дан массив. Определить: а)максимальный элемент б)минимальный элемент в)на сколько максимальный элемент больше…
- Найти минимальный элемент этого массива. Вставить после минимального элемента первый элемент массива — Pascal(Паскаль)
- Дан одномерный массив целых чисел А[i], где i=1,2,…,N. Определить: 1)Сколько раз максимальный элемент встречается в…
- Последовательный поиск элемента в массиве -Pascal(Паскаль)
- Дан одномерный массив, преобразовать массив следующим образом: поменять местами наибольший и наименьший элементы -…
- Поиск совершенный чисел — Pascal(Паскаль)
Источник: retrolib.ru
Поиск минимального элемента массива: программирование на VBA
Паскаль-программа нахождения минимального элемента массива.
Массив – это структура данных, которую можно рассматривать как набор переменных одинакового типа, имеющее общее имя. Массивы удобно использовать для хранения однородной по составу информации. К наиболее распространённым действиям с использованием массива можно отнести, ввод массива, вывод массива, сортировка массива, поиск максимального и минимального элемента массива.
Перед использованием массив должен быть описан в разделе описания переменных: var имя: array[нижний индекс..верхний индеск] of тип. Алгоритм поиска минимального элемента массива следующий: 1) делается предположение, что первый элемент массива минимальный. 2) затем остальные массивы сравниваются с этим элементом. 3) если обнаруживается что проверяемый элемент меньше принятого за минимальный элемент, то этот элемент принимается за минимальный и продолжается проверка оставшихся элементов. Поиск минимального элемента массива выглядит так:
program minimum; — имя заголовка
var a: array[1..10] of real; — описание массива
min:real; — описание переменных
begin – начало тела программы
min:=1; — присвоение min значения1
for i:=1 to 10 do — цикл for
begin – начало цикла
write(i,’ элеметн равен =’); — вывод сообщение
read(a[i]); — ввод сообщения
end; — конец цикла
for i:=1 to 10 do – цикл for
Язык C++ с нуля | #33 Найти максимальный и минимальный элемент массива в c++
writeln(‘минимальный элемент =’,min); вывод сообщения
end. Конец тела программы
Паскаль-программа упорядочения массива.
Массив – это структура данных, которую можно рассматривать как набор переменных одинакового типа, имеющее общее имя. Массивы удобно использовать для хранения однородной по составу информации. К наиболее распространённым действиям с использованием массива можно отнести, ввод массива, вывод массива, сортировка массива, поиск максимального и минимального элемента массива.
Перед использованием массив должен быть описан в разделе описания переменных: var имя: array[нижний индекс..верхний индеск] of тип. Сортировка массива подразумевает процесс перестановки элементов с целью упорядочения их в соответствие с каким-либо критерием. Алгоритм сортировки массива по возрастанию может быть представлен так: 1) просматривая массив от первого элемента, найти минимальный и поместить его на место второго элемента, а первый на место минимального. 2) просматривая массив от второго элемента, найти минимальный и поместить его на место второго элемента, а второй на место минимального. 3 ) и так далее до последнего. Упорядочение по возрастанию массива выглядит так:
program uporadochenie; имя заголовка
var a: array[1..10] of integer; — описание массива
i, j, b: integer; — описание перменных
begin – начало тела программы
for i:=1 to 10 do – цикл for
begin начало цикла
write(i,’ элеметн равен =’); — вывод сообщения
read(a[i]); ввод сообщения
end; конец тела программы
for i:=1 to 10 do цикл for
for j:=i+1 to 10 do цикл for
begin начало цикла
b:=a[j]; — присвоение b значения a[j]
a[j]:=a[i]; присвоение a[j] значения a[i]
a[i]:=b; присвоение a[i] значения b
end; — конец цикла
for i:=1 to 10 do цикл for
write(a[i],’ ‘); вывод сообщения
end. Конец тела программы
Источник: studfile.net
Урок 24. Поиск максимального (минимального) элемента в массиве
На этом уроке рассмотрим алгоритмы поиска максимального (минимального) элементов в одномерном массиве.
Задача. Составить программу, которая формирует одномерный массив случайных чисел, выводит на экран, выполняет поиск максимального элемента массива, а затем выводит на экран его значение и порядковый номер в массиве.
n — количество элементов в массиве;
i — переменная цикла;
max — значение наибольшего элемента;
numer_max — его порядковый номер.
Перед началом поиска максимального элемента допустим, что его первый элемент и является максимальным элементом, а его индекс указывает позицию максимального элемента в массиве. Это запишется так:
max := m[1]; numer_max := 1;
Для организации просмотра элементов будем использовать оператор цикла с параметром, который будет указывать индекс очередного элемента (переменная цикла будет индексом элемента массива).
Сравнение очередного элемента массива с максимальным осуществляется оператором if m[i] > max then. Если очередной элемент массива больше, чем максимальный, то следует считать его значение максимальным и запомнить его индекс. Данный фрагмент кода записывается таким образом:
for i:= 2 to n do begin if m[i]> max then begin max:= m[i]; numer_max:= i; end; end;
Текст процедуры получится таким:
procedure Maximum(m:myarray; var max,numer_max:integer); < Процедура нахождение максимального элемента массива и его номера. m : имя массива; max : значение максимального элемента; maxi : номер максиального элемента в массиве. >var i: integer; begin max:=m[1]; numer_max:=1; for i:= 2 to n do begin if m[i]> max then begin max:= m[i]; numer_max:= i; end; end; end;
Составим программу. В ней воспользуемся для заполнения массива уже знакомой процедурой — Init2, которая заполняет массив случайными числами из заданного интервала.
program Max_elem; const n = 20; type myarray= array[1..count] of byte; var m:myarray; i, max, maxi: integer; Procedure Init2(a,b: integer; Var m : myarray); . procedure Maximum(m:myarray; var max,numer_max:integer); . begin init2(0, 50, m); maximum(m, max, maxi); writeln(‘Максимальный элемент — ‘, max); writeln(‘Он расположен на ‘,maxi, ‘ месте.’); end.
Для поиска минимального элемента и его порядкового номера меняем обозначения:
min — значение наименьшего элемента;
numer_min — его порядковый номер.
Перед началом поиска предполагаем, что первый элемент массива минимальный, и его индекс — номер минимального элемента. При сравнении очередного элемента с минимальным, меняем знак отношения на противоположный.
Вы познакомились с алгоритмами поиска максимального (минимального) элемента массива.
На следующем уроке продолжим знакомиться с алгоритмами обработки одномерных массивов.
Источник: gospodaretsva.com