Составить программу по нахождению среднего арифметического всех чисел от 10 до 45. в паскале

1

Ответы и объяснения

2013-12-25T14:57:46+04:00
Uses crt;
var i,average,count:integer;
begin
for i:=10 to 45 do
begin
average:=average+i;
inc(count);
end;
writeln(average/count);
end.