Пример. Дана последовательность целых чисел, последним элементом которой является число 100. Вычислить среднее арифметическое элементов этой последовательности.
Program primer;
Var i, a, s, x : integer;
Begin
s := 0;
x := 0;
Repeat
Read (a); s := s + a; x := x + 1;
Until a = 100;
s := s / x;
Write ('среднее арифметическое: ', s); End.
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.