задача1090

uses crt;
const n=50;
var a:array[1..n] of real;
    i,j,kp,ko:byte;
    sp,so,mn:real;
begin
randomize;
kp:=0;
ko:=0;
sp:=0;
so:=0;
for i:=1 to n do
 begin
  a[i]:=-5+20*random;
  write(a[i]:5:1);
  if a[i]>0 then
   begin
    kp:=kp+1;
    sp:=sp+a[i]
   end
  else if a[i]<0 then
   begin
    ko:=ko+1;
    so:=so+a[i]
   end;
 end;
writeln;
if kp=0 then writeln('Положительных нет')
else
 begin
  sp:=sp/kp;
  writeln('Среднее положительных=',sp:0:2)
 end;
if ko=0 then writeln('Отрицательных нет')
else
 begin
  so:=so/ko;
  writeln('Среднее отрицательных=',so:0:2)
 end;
if(kp>0)and(ko>0) then
 begin
  writeln('Сумма средних=',sp+so:0:2);
  j:=1;
  mn:=abs(a[1]-(sp+so));
  for i:=2 to n do
  if abs(a[i]-(sp+so))<mn then
   begin
    mn:=abs(a[i]-(sp+so));
    j:=i
   end;
  write('Наиболее близкий к сумме средних элемент a[',j,']=',a[j]:0:1)
 end
end.