Определите среднее значение всех элементов последовательности, завершающейся числом 0. Использовать массивы в данной задаче нель
Определите среднее значение всех элементов последовательности, завершающейся числом 0.
Использовать массивы в данной задаче нельзя.
Входные данные Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит, а служит как признак ее окончания.
Выходные данные Выведите ответ на задачу.
Примеры входные данные 1 7 9 0 выходные данные 5.66666666667
А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.
var m,n,s:integer; begin s:=0; n:=0; repeat Read(m); if m<>0 then begin s:=s+m; n:=n+1 end until m=0; if n>0 then Writeln(s/n) else Writeln('Ничего не введено') end.
{$APPTYPE CONSOLE} Const n = 13; Type Mass = array[1..n] of integer;
Procedure BbIBOD(Var A:Mass); Var i:integer; Begin For i:= 1 to n do Write(' ',A[i]) End;
Function SWP(Var A:Mass; c:real):integer; Var i,j:integer; Begin For i:= 1 to n do if (A[i] < 0)and(A[i] <= c) then j:=i; if j <> 0 then Begin WriteLn('Искомый элемент: ',A[j],'[',j,']'); A[j]:=Sqr(A[j]); i:=A[n-1]; A[n-1]:=A[j]; A[j]:=i; Write('Новый массив:'); BbIBOD(A); End else Write('В массиве нет отрицательных элементов') End;
Var A:Mass; i:integer; c:real; Begin Randomize; Write('Исходный массив(',n,'):'); For i:= 1 to n do A[i]:=random(2*n+1)-n; BbIBOD(A); WriteLn; Write('Введите число: '); ReadLn(c); SWP(A,c); ReadLn End.