Egy kis programozás?

program qwerty;

uses crt;

var a:array[1..10] of real;

i,s: integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do begin

write('a[',i,']='); {beolvasas}

readln(a[i]);

end;

for i:=1 to 10 do

s:=s+a[i]; {osszegszamolas}

write('A szamok osszegenek kozeparanyosa=',(s/10));

{azert /10 mert 10 szamot olvasunk be}

readln;

end.

Számtani közép és nem számtani középarányos lol...

program kutyacica;

uses crt;

var

szam: real;

osszeg: real;

db: integer;

begin

clrscr;

osszeg:=0;

db:=0;

for db:=1 to 10 do begin

write(db,'. szam = ');

readln(szam);

osszeg:=osszeg+szam;

writeln('Osszeg = ',osszeg:0:5);

writeln('Atlag = ',osszeg / db:0:5);

end;

readln;

end.