Паскаль 45 .дана последовательность целых чисел, оканчивающаяся - вопрос №596524945 от kistinakravcenk 03.08.2021 09:31

Question

Информатика: Паскаль 45 .дана последовательность целых чисел, оканчивающаяся нулём. необходимо найти среднее арифметическое чисел этой последовательности. ноль числом последовательности не считается. форматы входных данных: вводится не более, чем 2 в 15 степени целых чисел, каждое из которых не превосходит по модулю (2в 15 степени − 1). после последнего числа вводится 0. гарантируется, что последовательность не пустая. форматы выходных данных: требуется вывести одно число — искомое среднее арифметическое. результат

kistinakravcenk · Answer

Var a,s,k:integer;beginwriteln( Вводите числа: );readln(a);s:=0; k:=0;while a 0 do begin k:=k+1; s:=s+a; readln(a); end;writeln( Среднее арифметическое = ,trunc(s/k));end.Пример:Вводите числа:539470Среднее арифметическое = 5...