Сильвестр
5 год назад
50+лучшийСоставьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел(массив не использовать). Сделайте три варианта программы, используя операторы While,Repeat, For.
ОТВЕТЫ
Simmons Harry
Oct 24, 2020
var i: integer;
a,s: real;
begin
s:=0;
writeln('числа:');
for i:=1 to 10 do
begin
write(i,': ');
readln(a);
s:=s+a;
end;
writeln('среднее арифметическое: ',s/10:6:2);
end.
a,s: real;
begin
s:=0;
writeln('числа:');
for i:=1 to 10 do
begin
write(i,': ');
readln(a);
s:=s+a;
end;
writeln('среднее арифметическое: ',s/10:6:2);
end.
997
Смежные вопросы:
