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

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

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

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

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

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.