Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vlad2380
08.07.2021 17:54 •
Информатика
Найти количество четных чисел в последовательности m,состоящий из 15 чисел го ,
Показать ответ
Ответ:
Lilithovhannisyan
02.10.2020 07:11
Var M: array[1..15] of integer;
i, count: integer;
begin
for i := 1 to 15 do begin
M[i] := random(15);
write(M[i]:3);
if(M[i] mod 2 = 0) then inc(count);
end;
writeln(#10, 'Кол-во четных элементов: ', count);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
царапина123
04.11.2022 17:13
1. Назовите первоначальные значения англоязычного понятия «дизайн»?2. Что такое дизайн?4. Какие факторы возникновению дизайна?5. Какие науки определяют область необходимых...
пикча6
01.12.2022 02:03
По горизонтали: 1) Наука о законах правильного мышления. 2) Учёный, которого считают основоположником формальной логики. 3) Набор элементов, каждый из которых отличается...
ellykhrom
25.05.2023 10:40
Запишите на языке Паскаль программу, которая выводит (правильное) окончание слова ученик в зависимости от числительного. Например: При входных данных – 12 – «В классе...
dhdndbrb
23.12.2020 11:27
На вход следующему фрагменту программы поступила строка «Мама». Какой результат выдаст программа? ответ представить без кавычек и пробелов после....
Евгения22042002
27.03.2020 17:22
Чему будет равно S на выходе программы?...
nastya01102016
19.07.2020 21:06
Сейчас нужно сдать! язык программирования - free pascal после праздника гости решили разъехаться на такси. в машину помещается только 4 пассажира. какое наименьшее...
Ритааааааа
19.09.2022 00:30
Составьте на эти и три темы вопросы на каждую тему по три вопроса введение систем в теорию, процессы в естественных системах и информационные процессы в искусственных...
Sofya768Miller
25.02.2022 23:46
Размер фотографии 4000 х 1500 точек каждая точка имеет столько цветов, что для ее координат кодирования требуется 2 байта сколько места займёт данная фотография...
лера21091
22.09.2020 05:06
Раскрась предметы через которые пройдет луч света...
magomed200495
20.06.2020 16:29
с несложными во Распишите по возможности...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, count: integer;
begin
for i := 1 to 15 do begin
M[i] := random(15);
write(M[i]:3);
if(M[i] mod 2 = 0) then inc(count);
end;
writeln(#10, 'Кол-во четных элементов: ', count);
end.