program zaliczenie;
     type tablica = array[0..9] of double; // zadanie pierwsze
       var n,i: integer;
         tab: tablica;


function srednia(tab: tablica): double;
var suma: double;
  licz: integer;
begin
   suma:= 0;
   licz:=0;
   for i:=0 to 9 do
   begin
      if (tab[i]<0) then
      begin
      suma:=suma+tab[i];
      licz:=licz+1;
      end;
   end;
   if (licz<>0) then
   srednia:=suma/licz
   else
   writeln('Nie ma liczb ujemnych');
end;

var minimum: double; poz: integer;
procedure najmniejszyelement(var tab: tablica; minimum: double; poz: integer);
begin
 minimum:= tab[0];

 poz:= 0;
 for i:=0 to 9 do
 begin
    if (tab[i]<minimum) then
    begin
    minimum:=tab[i];
    poz:= i;
    end;
 end;
 writeln(minimum:0:2, ' oraz ', poz);    //tu czyta normalnie
end;

begin
     writeln('Wpisz dane do tablicy, oddzielajac je enterem');
     for i:=0 to 9 do
     begin
         readln(tab[i]);
     end;
     writeln('Dane wczytane ziomku');
     writeln('------------------------------');
     writeln('Dane znajdujace sie w tablicy: ');
     for i:=0 to 9 do
     begin
        writeln(' ', tab[i]:0:2,' ;');
     end;
     writeln('Srednia z liczb mniejszych od zera wynosi :',srednia(tab):0:2);
     najmniejszyelement(tab,minimum,poz);
     writeln('Najmniejszy element w tablicy wynosi :', minimum:0:2);    // tu nie
     writeln('A jego pozycja to: ',poz);
     readln;
end.