Ввести з клавіатури n будь-яких дійсних чисел. Знайти мінімальне серед від’ємних чисел зразок:

Program c27;
var i,n:integer;
max,a:real;
begin
readln(n);
writeln(' Ведіть від’ємне число');
readln(max);
for i:=2 to n do
begin
readln(a);
if (a>max) and (a<0) then max:=a;
end;
writeln(max:5:3);
end.

Анастасия1708035    3   31.05.2023 04:03    0