Warning: Illegal string offset 'html' in /var/www/lvp37/data/www/lvp37.ru/cache/skin_cache/cacheid_2/skin_topic.php on line 379
Максимальный элемент - олимпиадники-информатики
←  Одномерные массивы

олимпиадники-информатики

»

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

Валерия фотография Валерия 28 Apr 2012

Найти максимальный элемент в одномерном массиве из заданных 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.
Ответить