Осуществить ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. Использовать оператор repeat.
Осуществить ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. Использовать оператор repeat.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
srednee:real;
summ,summp,x,i:integer;
begin
summ:=0;
srednee:=0;
i:=0;
summp:=0;
repeat
write('Введите число = ');
readln(x);
summ:=summ+x;
if x>0 then
begin
i:=i+1;
summp:=summp+x;
end;
until x=0;
srednee:=summp/i;
writeln('Сумма всех введенных чисел = ',summ);
writeln('Среднее арифмитическое всех положительных чисел =',srednee );
end.