Umístnení souboru www.TrSek.com/beginner/danciwo/priemery3.pas{ PRIEMERY3.PAS Copyright (c) Danciwo }
{ Programovo zabezpecte vypocet aritmetickeho priemeru a odchylok }
{ od aritmetickeho priemeru postupnosti N realnych nameranych }
{ hodnot zadanych na vstupe. Vysledky (s presnostou na dve desatinne}
{ miesta) vypiste ich vo forme tabulky s hlavickou: }
{ poradove cislo hodnota odchylka }
{ }
{ Author: Danciwo }
{ Date : 15.02.2008 http://www.trsek.com }
program priemery3;
uses crt;
var N: array[1..5] of real;
priemer: real;
odchylka: real;
i:integer;
begin
writeln('Vypocet aritmetickeho priemeru a odchylok od aritmetickeho priemeru');
writeln('postupnosti N realnych nameranych hodnot.');
writeln('Zadaj namerane hodnoty : ');
for i:=1 to 5 do
readln(n[i]);
priemer:=(n[1]+n[2]+n[3]+n[4]+n[5])/5;
writeln('poradove cislo hodnota odchylka');
for i:=1 to 5 do begin
odchylka:=priemer-n[i];
writeln(i:5, N[i]:20:2, odchylka:12:2);
end;
readln;
end.