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

Дан массив из 10 чисел найти количество чисел делящихся на 2

Показать ответ
Ответ:
Діанка465
Діанка465
08.07.2020 06:47
4,6,8,10,12,14,16,18,20,22
0,0(0 оценок)
Ответ:
NikitaZlatoystov
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 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота