Входные данные
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.
- Вам это нравится
- Не нравится