Поиск наибольшего числа в массиве

Поиск наибольшего элемента в массиве y(k) выполняется в цикле. Обозначим элементы массива y(k), где k=1÷N. Наибольшее число – max.

В качестве начального берется первый элемент массива y(k), с которым последовательно сравниваются остальные элементы. Будем попарно выполнять сравнения чисел, обозначив через max первый элемент массива, т.е. max=y(1). Если очередной элемент окажется больше max, то max присваивается уже этому элементу массива. Затем новое значение max сравнивается со следующим элементом и т.д.

Так перебрав все элементы массива y(k), мы можем определить наибольший (max) среди них.Блок-схема приведена на рис. 7.

Указана размерность массива

Ввод элементов массива в память

Присвоение max значения первому

элементу массива

Изменение индекса для второго элемента

массива

Попарное сравнение двух элементов

массива

Присвоение max значения элементу,

оказавшегося больше предыдущего

Проверка, все ли элементы массива Y(k)

перебраны

Вывод на дисплей всех элементов

массива Y(k)

Вывод на дисплей max элемента массива

Рис. 7. Алгоритм поиска наибольшего элемента в массиве

PROGRAM POISK;

var

I, k, n: integer;

y:=array[1..100] of real;

max: real;

begin

writeln (‘ввести размерность массива’);

readln (n);

for k=1 to n do

begin

writeln (‘ввести число’);

readln (y[k]);

end;

max:= y(1)

for k=2 to n do

if max < y[k] then

begin

max:=y[k];

end;

writeln (‘исходный массив’);

for i=1 to n do

begin

writeln (y[k]:3:1, ‘ ’);

end;

writeln (‘наибольшее число =’, max:4:1);

end.

Дата добавления: 2014-12-10