Question

напишите в паскале программу которая находит наибольшое отрицательное число .СРОЧНО!!

Answer 1

var
n,i,a,max:Integer;
begin
max:=-36000;
WriteLn('Введите количество чисел');
ReadLn(n);
Writeln('Вводите числа');
for i:=1 to n do
readln(a);
if (a<0) and (a>max)then max:=a;
Writeln('Наибольшее отрицательное число = ', max);
end.