Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nastusa098
17.04.2021 14:19 •
Информатика
Из последовательности целых чисел от 0 до 200 выбрать и просуммировать отдельно четные и нечетные. использовать функцию trunc
Показать ответ
Ответ:
chunya20041
08.10.2020 16:58
Const
maxn = 200;
type
myarr = array [1..maxn] of longint;
var
a: myarr;
sumch, sumnch: int64;
begin
sumch := 0;
sumnch := 0;
for i := 1 to 200 do begin
read(a[i]);
if (a[i] mod 2 = 0) then
sumch := sumch + a[i]
else
sumnch := sumnch + a[i];
end;
writeln('Сумма четных элементов = ', sumch);
writeln('Сумма нечетных элементов = ', sumnch);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
katttty9989
28.08.2020 00:40
Дано: for i:= 1 to 60 do При последнем выполнении тела цикла i = *ответ*...
Помагайтыыыы
09.06.2021 04:40
Автоматическое устройство осуществило перекодировку информационного сообщения, первоначально записанного латинскими символами в 16-битном коде Unicode, в 7-битную кодировку ASCII....
rjt54
18.04.2022 08:02
2 задача: если формулы поменять местами (p:=p*a;a:=a+7;), какой ответ будет выводится?3 задача: за что отвечает переменная d, почему К:=10, какой ответ будет выводиться в программе?...
irochka320969
09.10.2021 05:16
Старший байт IP адреса a) Указывает на топологию сети b) Используется для идентификации номера компьютера в сети c) Определяет класс адреса в сети d) Группу компьютеров, подключенных...
abdigalikova1708
01.04.2022 15:50
Составьте программу, которая реализует ввод с клавиатуры трех произвольных положительных чисел а, b и c. Возводит в квадрат только нечетные числа, а четные оставляет без изменения....
Ilusich
08.04.2023 12:03
Какой объем оперативной памяти требуется для хранения текста статьи, объемом 4 страницы, на каждой из которых размещены 32 строки по 64 символа? Мощность используемого в компьютере...
куцев
16.04.2020 12:32
ИНФОРМАТИКА. ЗАДАНИЯ ИНФОРМАТИКА. ЗАДАНИЯ...
buh583
17.02.2023 09:04
Отличие ЭВМ пятого поколения от машин с архитектурой фон Неймана...
YuliaG2000
17.11.2021 13:16
Задайте массив из случайных чисел (используйте ввод данных с оператора случайных чисел ) из 7 элементов. Все положительные элементы замените на 0. Выведите на экран исходный и полученный...
745632189
05.03.2023 14:13
‼️‼️‼️‼️‼️‼️‼️на каком из рисунков изображено графическое решение системы линейных уравнений {х+2у=0 {-х+2у=4 С РЕШЕНИЕМ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
maxn = 200;
type
myarr = array [1..maxn] of longint;
var
a: myarr;
sumch, sumnch: int64;
begin
sumch := 0;
sumnch := 0;
for i := 1 to 200 do begin
read(a[i]);
if (a[i] mod 2 = 0) then
sumch := sumch + a[i]
else
sumnch := sumnch + a[i];
end;
writeln('Сумма четных элементов = ', sumch);
writeln('Сумма нечетных элементов = ', sumnch);
end.