Из N целых чисел найти минимальное среди положительных и максимальное среди отрицательных значений (программа Паскаль)

Question

Из N целых чисел найти минимальное среди положительных и максимальное среди отрицательных значений

Answer 1

USES Crt;
VAR
  MI, MA, N, I, X: INTEGER; FL, FL1: BYTE;
BEGIN
 WriteLn('Введите количество значений');  ReadLn(N);
  FL:=0; FL1:=0;
 FOR I:=1 TO N DO Begin
   WriteLn('Введите ',I,' значение');  ReadLn(X);
   IF (FL=0) AND (X<0) Then Begin
                                                    MA:=X;  FL:=1;
                                                  End;
   IF (FL1=0) AND (X>0) Then Begin
                                                       MI:=X;  FL1:=1;
                                                    End;
   IF (X<0) AND (X>MA) Then MA:=X;
   IF (X>0) AND (X<MI) Then MI:=X;
 End;  
 IF FL=1 Then WriteLn('максимальное среди отрицательных = ',ma)
               Else WriteLn('отрицательных нет');
 IF  FL1=1 Then WriteLn('минимальное среди положительных = ',mi)
                  Else WriteLn('положительных нет');
END.