Вводится массив, состоящий из целых чисел. Найти наибольшее среди них. Входные данные Сначала задано число N - количество элементов в массиве (1N35). Далее через пробел записаны N чисел - элементы массива. Массив состоит из целых чисел. Выходные данные Необходимо вывести значение наибольшего элемента в массиве. Примеры Входные данные 3 1 2 3 Выходные данные 3

program zz1;

var i, max1, n:integer; / / задаем переменные целого типа

m:array [1 ... 100] of integer;

begin

write (' введите заданное число n '); / / вводим количество элементов в массиве

read (n);

for i:=1 to n do / / записываем в массив числа с клавиатуры

read (m[i]);

max1:=0; / / задаем начальное значение для наибольшего элемента

for i:=1 to n do / / находим максимальный элемент

if m[i]>max1 / / проверяем, если очередной элемент больше максимального, то записываем его в максимальный

then max1:=m[i];

writeln (' максимальный элемент = ', max1); / / выводим ответ

end.