Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nakoreshoy50qg
28.10.2022 13:19 •
Информатика
Дана последовательность целых чисел, заканчивающихся нулём. посчитать кол-во четных и нечетных чисел, сумму и среднее арифметическое. написать программу на паскале.
Показать ответ
Ответ:
элина332
05.10.2020 09:47
Var
sum, count, r, i: integer;
begin
repeat
write ('Введите число: ');
readln (r);
inc (sum, r);
inc (i);
if (r mod 2)<>0 then inc (count);
until r=0;
writeln ('');
writeln ('Сумма элементов: ', sum);
writeln ('СА: ', sum/i);
writeln ('Нечетных элементов: ', count);
writeln ('Четных элементов: ', i-count);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
almar80
04.09.2020 03:29
1. задан массив x[1..n]. определите число операций сложения, которые выполняются при работе этой программы: s: =x[1]+x[n]; for k: =1 to n do begin x[k]: =x[k]+x[k]+s...
arnautovvladik
13.09.2022 20:08
Всистеме автоматического информация от объекта к объекту транслируется в виде: а)системы команд; б)системы суждений; в)системы предикатов; г)системы высказываний;...
vb8515401
14.05.2021 12:18
51. с проводника , кратко опишите последовательность действий создания на диске d: трех уровневой структуры папок, вложенных в друг друга (d: \pentium i\ pentium...
Maks2021
14.05.2021 12:18
Ниже записана программа. получив на вход число x, эта программа печатает два числа. укажите набольшее из таких чисел x, при вводе которых алгоритм печатает сначала...
EvelinaKPACABA
21.01.2021 11:38
Составить программу, которая вычисляет сумму, произведение и количество положительных элементов одномерного массива а(n), заданного датчиком случайных чисел, количество...
Супер1009
24.04.2023 15:37
Постройте таблицу истинности для логического выражения В·(Ā+В)...
умный2006
09.04.2020 07:37
решите задание указанного на рисунке используя язык программы Lazarus!...
vikaolkhovskay
21.02.2022 07:56
1. переведите из одной системы счисления в другую а) 62в10 б)...
екатерина696
21.02.2022 07:56
Дано два натуральных числа n и m. написать программу для определения наименьшего из чисел, составленных из цифр данных чисел. незначащих нулей в найденном числе...
дарья1644
21.02.2022 07:56
Найти объем информации сообщения содержащего 8 символов и записанного на языке с мощностью алфавита 16...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sum, count, r, i: integer;
begin
repeat
write ('Введите число: ');
readln (r);
inc (sum, r);
inc (i);
if (r mod 2)<>0 then inc (count);
until r=0;
writeln ('');
writeln ('Сумма элементов: ', sum);
writeln ('СА: ', sum/i);
writeln ('Нечетных элементов: ', count);
writeln ('Четных элементов: ', i-count);
end.