Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ден1005
06.08.2022 00:54 •
Информатика
Дан массив из 10 чисел найти количество чисел делящихся на 2
Показать ответ
Ответ:
Діанка465
08.07.2020 06:47
4,6,8,10,12,14,16,18,20,22
0,0
(0 оценок)
Ответ:
NikitaZlatoystov
08.07.2020 06:47
var
a: array [1..10] of integer;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(10);
write(a[i]:2);
end;
writeln();
for i := 1 to 10 do
if (a[i] mod 2 = 0) then
inc(s);
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
anfisakadnikova
16.02.2020 20:39
Класс 2 часть стр. 38 10. зарание огромное ! у каких предметов или существ могут быть такие отличительные признаки? (запиши как можно больше названий рядом с каждым признаком) цвет...
про739
12.05.2022 03:41
Дан линейный массив из 10 целочисленных элементов введённых с клавиатуры вывести на экран положительные четные элементы их произведения. с паскаля...
Кристина1081567
24.11.2022 14:34
Графичесуое изображение памятника клавиатуре в екатеринбурге.. ☺...
Den910
24.11.2022 14:34
Delphi диалоги открытия и сохранения файла. объясните...
SeyshellaGoa
24.11.2022 14:34
2. в компьютер вводятся два числа(тип если первое больше второго, то вычислить их сумму, иначе - произведение. формат вывода, как в примере!...
Mika123123
24.11.2022 14:34
План до презентации на тему рок музыка...
valera122004
24.11.2022 14:34
Найти количество слов, оканчивающихся на букву а . c++ . союз а - не слово, учесть ситуации, когда после слова, оканчивающегося на а стоит , . ! и ?...
rgn123
24.11.2022 14:34
Какие вещи расстовляют в алфовитном порядке...
mares2007
24.11.2022 14:34
Дан линейный массив из 10 целочисленных элементов введённых с клавиатуры вывести на экран не нулевые элементы и найти их произведения...
Vika192526
04.04.2022 00:14
Информатика. дополни таблицу. объект название лит. произведения и его автор объект алладин старик хоттабыч серый волк воздушный шар цветик-семицветик...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array [1..10] of integer;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(10);
write(a[i]:2);
end;
writeln();
for i := 1 to 10 do
if (a[i] mod 2 = 0) then
inc(s);
writeln(s);
end.