Нахождение максимального и минимального значения в массиве на Паскаль

Нахождение максимального и минимального значения в массиве на Паскаль inphormatika.ru

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


Напишем программу на Язык программирования Паскаль, которая будет решать подобную задачу.


Суть её состоит в том, что мы будем брать все элементы по очереди и сравнивать с промежуточным значением, которое является временным максимальным числом. Если последующая ячейка будет больше первой, то мы просто меняем значение максимального числа на новое.


Сперва нам нужно ввести все значения в массив с клавиатуры, чтобы знать, что будет храниться в массиве.


for i:=1 to 5 do

begin
write(Введите , i, число в массив: );
read(r2d2[i]);
end;

Затем будет блок, в котором будет происходить отбор максимального элемента.


for i:=1 to 5 do

begin
if (i=1) then maxim:=r2d2[1]
else
if (maxim<r2d2[i]) then maxim:=r2d2[i];
end;

А вот и сам код всей программы:


Program maximalnoe;

Var
i,maxim:integer;
r2d2: array[1..5] of integer;
Begin
for i:=1 to 5 do
begin
write(Введите , i, число в массив: );
read(r2d2[i]);
end;

for i:=1 to 5 do
begin
if (i=1) then maxim:=r2d2[1]
else
if (maxim<r2d2[i]) then maxim:=r2d2[i];
end;
write(Наибольшее число в массиве=,maxim);
End.

Одномерный массив произвольного размера, заполненный случайными значениями Задача на Паскаль. «Лесенка» чисел