В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
NezNeika
NezNeika
05.11.2022 09:02 •  Информатика

Осуществить ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. использовать оператор repeat.

Показать ответ
Ответ:
1978dan
1978dan
30.09.2020 20:52

program z8_1;
uses crt;
var
i:shortint;
k,n:byte;
s:integer;
sa:real;
begin
clrscr; i:=1;
repeat
read(i);
if i>0 then begin
k:=k+1;
s:=s+i;
end;
until i=0;
sa:=s/k;
write('Количество чисел:',k,' Сумма чисел:',s,'Среднее арифметическое:',sa:4:2);
readkey
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота