Зклавіатури вводиться послідовність чисел, умова завершення число 0. Визначити середне арифметичне відємних чисел послідовності.
Александр Сергеевич
2.12.2012 14:12
как вариант...
program chisla;
uses crt;
var
a,t,x:real;
k:integer;
begin
clrscr;
t:=0;
k:=0;
writeln('vvedite chislo:');
repeat
readln(x);
t:=t+x;
inc(k);
until x=0;
a:=t/k;
writeln('srednee arifm.posled.=',a);
readln;
end.
мисс_граффити
3.12.2012 2:36
непонятно только, нужно ли было учитывать ноль при подсчете среднего арифметического (или он просто символ конца последовательности)
Александр Сергеевич
3.12.2012 18:08
ну если не учитывать то можно делить на k-1 при вычислении... но в условии не уточняется, надо ли 0 учитывать или просто символ конца последовательности
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.