program atlag;
const N = 5; H = 3;
var a: array[1..N] of integer;
    i, osszeg, hnal_nagyobb_db: integer;
begin
  osszeg := 0; hnal_nagyobb_db := 0;
  writeln('Kerem a tomb elemeit:');
  for i := 1 to N do
  begin
    write('a[',i,']:'); readln(a[i]);
    osszeg := osszeg + a[i];
    if a[i] > H then
      hnal_nagyobb_db := hnal_nagyobb_db + 1;
  end;
  write('A tomb elemei: ');
  for i := 1 to n do
    write(a[i],' ');
  writeln;
  writeln('A tomb elemeinek atlaga: ', (osszeg / N):3:2);
  writeln('A ',H,'-nal nagyobb elemek szama: ', hnal_nagyobb_db);
  readln;
end.