Консультация № 197098
14.11.2019, 16:00
0.00 руб.
0 1 1
Здравствуйте! У меня возникли сложности с таким вопросом:написать программу, которая вычисляет среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. признаком конца последовательности является число 0. в pascal

Обсуждение

давно
Старший Модератор
31795
6196
17.11.2019, 02:39
общий
это ответ
Здравствуйте, JonMoxley!

Смотрите код:
[code lang=pascal]var
a,b:real;
c:integer;
begin
a:=0;
c:=0;
repeat
write('enter number:=');
readln(b);
if b<>0 then inc(c);
a:=a+b;
until b=0;
writeln('result:=',a/c);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа