Nechce sa mi osetrovat vsetky mozne pripady, ale zaklad bezi. Neviem, ake vsetky funkcie ste uz brali, neriesim, takze:
program Sucet;
Uses sysutils;
var
c: string;
a: integer;
s: integer;
count: integer;
begin
s:=0;
count:=0;
repeat
writeln('zadaj cislo');
readln(c);
if (c<>'K') then
begin
a:=StrToInt(c);
s:=s+a;
count:=count+1;
end;
until (c='K');
writeln('Pocet nac.hodnot: ',count,' Sucet: ', s, ' Priemer: ',(s/count):5:2);
readln();
end.
A posli tuto chlapcom fotku