Возможный вариант решения:
Program For_;
Var
i:integer;
a,sum,sr:real;
Begin
For i:=1 to 5 do
Begin
write('введите',i,'-е вещественное(дробное)число');
write('a',i,' =');
read (a);
sum:=sum+a;
End;
sr:=sum/5;
writeln('среднее значение пяти чисел = ',sr:5:3);
End.
Добрый день. Меня заинтересовал ваш ответ "Возможный вариант решения:
Program For_;
Var
i:integer;
a,sum,sr:real;
Begin
For i:=1 to 5 ..." на вопрос http://www.liveexpert.org/topic/view/2705963-napisat-programmu-kotoraya-vvodit-s-klaviaturi-drobnih-chisel-i-vichislyaet-ih-arifmeticheskoe-ispolzuya-cikl-for. Можно с вами обсудить этот ответ?