Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Задача:
Найти максимальный элемент численного массива.
Алгоритм решения задачи:
Значения, составляющие массив, могут быть получены из разных источников: путем вызова функции random, ввода значений пользователем, считывания из файла. В программе ниже используется первый вариант.
В задачах подобного рода (поиск максиму или минимума) может быть поставлена цель, найти только 1) индекс элемента, 2) только значение или 3) и то и другое. В программе ниже используется третий вариант.
Неплохо бы, чтобы при запуске программы весь массив выводился на экран. В этом случае пользователь может оценить правильность работы программы.
Программа на языке Паскаль:
const
m = 20;
var
a: array[1..m] of byte;
max, max_i: byte;
i: byte;
begin
randomize;
for i := 1 to m do begin
a[i] := random(100);
write (a[i]:3);
end;
max_index := 1;
max := a[1];
for i := 2 to m do
if a[i] > max then begin
max_i := i;
max := a[i];
end;
writeln;
writeln ('Max = ',max);
writeln ('position: ', max_i);
readln
end.