Вводится массив, состоящий из целых чисел. Отыскать величайшее среди их.Входные

Вводится массив, состоящий из целых чисел. Отыскать наивеличайшее среди них.
Входные данные

Сначала задано число N количество элементов в массиве (1N35). Далее через пробел записаны N чисел элементы массива. Массив состоит из целых чисел.
Выходные данные

Нужно вывести значение наивеличайшего элемента в массиве.
Образцы
Входные данные
3
1 2 3
Выходные данные
3

Задать свой вопрос
1 ответ
Var
a:array[1..35]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
      read(a[i]);
max:=a[1];
for i:=1 to n do
      if a[i]gt;max then
          max:=a[i];
writeln;
writeln(max);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт