Задан массив из N действительных чисел. Определить количество максимальных элементов. Определить максимальный элемент среди положительных чисел и максимальный среди отрицательных чисел и их номера.

const     n = 100; var     i, k_max, max, neg_max: integer;     a: array[1..n] of integer; begin     for i := 1 to n do     begin         a[i] := random(100) - 50;         write(a[i], ' ');     end;     writeln();          max := a[1];     k_max := 1;     neg_max := 0;     for i := 1 to n do     begin         if a[i] > max then begin             max := a[i];             k_max := 1;         end;         if a[i] = max then k_max := k_max + 1;         if (a[i] < 0) and (abs(a[i]) > abs(neg_max)) then             neg_max := a[i];     end;          writeln('Max: ', max, ' k=', k_max);     writeln('Positive: ', max);     writeln('Negative: ', neg_max); end.