Перейти к содержимому


Публикации Валерия

1 публикаций создано Валерия (учитываются публикации только с 29-марта 23)


#157 Максимальный элемент

Отправлено от Валерия в 28 апреля 2012 - 15:50 in Одномерные массивы

Найти максимальный элемент в одномерном массиве из заданных n чисел.

Входные данные

n - количество элементов (n<=1000). Далее следуют n чисел.

Выходные данные

max-максимальный элемент.

Ввод

10

4 6 89 765 456 3 21 345 907 65

Вывод

907

Решение
​​​var a:array [1..1000] of longint;


n,i,max:longint;

begin

readln(n); //ввод n - числа элементов в массиве

for i:=1 to n do //ввод чисел массива

read(a[i]);

max:=a[1]; / / поиск максимального элемента

for i:=2 to n do if a[i]>max then max:=a[i];

writeln(max);//вывод максимального элемента

end.