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


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


В этой теме нет ответов

#1 Валерия

    Новичок

  • Пользователи
  • Pip
  • 1 сообщений

Отправлено 28 апреля 2012 - 15:50

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






Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анононимных