Tömb elemeinek összege és átlaga (OsszegAtlag.pas) program OsszegAtlag; uses crt; var i,n,s:integer; a:array [1..30] of integer; BEGIN write('n:='); readln(n); Bekérjük a tömbelemek számát ( természetesen ez csak kevesebb lehet, mint 30). i:=1; while(i<=n) do begin Végigmegyünk a tömb elemein és beolvassuk a billentyűzetről az a nevű tömb i-edik elemét. write('a[',i,']:='); readln(a[i]); i:=i+1; end; s:=0; s-ben fogjuk tárolni a részösszegeket, ezért kezdjük 0-ról i:=1; while(i<=n) do begin A ciklus segítségével végigmegyünk a tömb elemein és minden tömbelemet hozzáadunk az s-hez s:=s+a[i]; i:=i+1; end; writeln('A tomb elemeinek osszege= ',s); writeln('A tomb elemeinek atlaga= ',s/n); Kiírjuk a tömb elemeinek átlagát (elosztjuk az összeget a tömb elemeinek számával). END.