program Project1;
type tab = array[1..10] of integer;

  function srednia(t1:tab):double;
  var i,suma,ilosc:integer;
    begin
    suma:=0;
    ilosc:=0;
    for i:=1 to 10 do begin
       if (t1[i]>=-3) AND (t1[i]<3) then begin
          suma:=suma+t1[i];
          ilosc:=ilosc+1;
       end;
      end;
    Result:= suma/ilosc;
    end;

function maksimum(t2:tab):integer;
var i,max:integer;
  begin
  max:=t2[1];
  for i :=1 to 10 do begin
    if t2[i]>max then max:=t2[i];

end;
Result:=max;
  end;


  var i,j:integer;
   tablica:tab;
begin
  for i:=1 to 10 do begin
    writeln('wpisz',i,'element tablicy');
    readln(tablica[i]);
  end;
  for j:=1 to 10 do begin
    writeln(j,'wartosc tablicy to: ',tablica[j]);
  end;

  writeln('srednia liczb od -3 do 3 wynosi: ',srednia(tablica));

    writeln('maksimum w tablicy jest liczba: ',maksimum(tablica));


  readln;
end.