Zdravím,za úkol mám vytvořit v pascalu program, který by vypočítal aritmetický průměr, kde by uživatel mohl zadat libovolný počet číslic, které by ukončil číslem 0 a číslo 0 už by se do průměru nezapočítávalo. Vytvořil jsem následující program, který funguje, ale nevím zda neni příliš "krkolomný" proto prosím o zhodnocení a případnou radu. DěkujiZde můj programbegin writeln('pro supsteni programu klikni na klavesi 1'); readln (c); pocet:=-1; { -1 z toho důvodu, aby se do proměné nepočítalo ukončovací číslo 0 } suma:=0; while c<>0 do {dokud nebude c = 0 budou se cyklus opakovat a uživatel bude moci zadávat libovlný počet čísel } if c=0 then {podmínka je vytvořena, aby se ukončovací číslo 0 nepočítalo do prumeru} else begin writeln ('zadej cislo'); readln (c); suma:=c+suma; pocet:=pocet+1; end; prumer:=suma / pocet; writeln (prumer:0:2); readln;end.
