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

Question

Информатика

Мариам

14 марта, 06:12

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

+3

Ответы (1)

Знаете ответ на вопрос?

Ася · Answer 1

Var

x, max:real;

n, i:integer;

begin

write ('Введите число n: ') ;

readln (n) ;

for i:=1 to n do

begin

write ('Введите число ', i,': ') ;

readln (x) ;

if x<0 then

begin

if max=0 then max:=x; / / если это первое отр. число

if x>max then max:=x

end

end;

writeln ('Наибольшее среди отрицательных: ', max)

end.