Помогите решить в паскале!

Даны пять чисел,

каждое из которых по модулю не превышает ста. Вычислить максимум среди

отрицательных из них.

Question

Информатика

Макар

24 ноября, 09:51

Помогите решить в паскале!

Даны пять чисел,

каждое из которых по модулю не превышает ста. Вычислить максимум среди

отрицательных из них.

+4

Ответы (1)

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

Артема · Answer 1

Var a:array[1 ... 5] of real;

b, c:integer;

max:real;

begin

c:=0;

max:=-100;

writeln ('Введите числа') ;

for b:=1 to 5 do

begin

readln (a[b]) ;

if (a[b]max) then begin

max:=a[b];

c:=c+1;

end;

end;

if c>0 then writeln ('Максимум среди отрицательных чисел равняется ', max)

else writeln ('Нет отрицательных чисел') ;

end.

Помогите решить в паскале!Даны пять чисел,каждое из которых по модулю не превышает ста. Вычислить максимум средиотрицательных из них.

Помогите решить в паскале!

Даны пять чисел,

каждое из которых по модулю не превышает ста. Вычислить максимум среди

отрицательных из них.