Написать программу в паскале: Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего среди отрицательных чисел этой последовательности.

program zz1;

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

begin

write (' введите n '); / / вводим с клавиатуры число

read (n);

max: = - 10000; / / задаем начальное значение для максимального

for i:=1 to n do

begin

read (a); / / вводим очередное число последовательности

if a max then max: = a; / / проверяем, если число больше максимального, то записываем его в максимальное

end;

write (' максимальное число среди отрицательных чисел последовательности = ', max); / / выводим ответ

end.