:SanchO: program srAr; var input,count,result:integer; average:real; begin count:=0; result:=0; input:=0; repeat write("Number #", count+1, ": "); readln(input); count:=count+1; result:=result+input; until(input<0); average:=result/(count-1); writeln("Summ: ", result); writeln("Average: ", average); end.
Ссылка на пост
11 фев 2010 в 10:48