сервис вопросов и ответовВ цикле получите с клавиатуры 10 разных чисел , сколько среди них четных?
1-4 класс|
|
Паскаль
Vasutintom
14 апр. 2016 г., 12:27:51 (8 лет назад)
Tomapavlova62
14 апр. 2016 г., 15:00:08 (8 лет назад)
const
n = 10;
var
i, k: integer;
a: array[1..n] of integer;
begin
Write('Введите 10 элементов массива через пробел ');
k := 0;
for i := 1 to n do
begin
Read(a[i]);
if a[i] mod 2 = 0 then k := k + 1
end;
Writeln('Введено четных- ', k)
end.
Тестовое решение:
Введите 10 элементов массива через пробел 37 262 1762 3443 10 532 843 653 6 221
Введено четных- 5
Ответить
Другие вопросы из категории
Кота Базилио посадили в подвал Кота Базилио посадили в подвал за плохое поведение. Базилео питался там одними мышами. Он поймал их за 4 дня 80 штук.
При этом его мастерство день ото дня возрастало, и он каждый день ловил столько мышей, сколько во все предыдущие дни вместе. Сколько мышей поймал Базилео в каждый из этих четырёх дней?
Дана кодовая таблица азбуки морзе
Имя валера любимый предмет история
Читайте также
Задача в паскале: Ввести с клавиатуры 10 чисел - положительных и отрицательных. Заменить все отрицательные числа их модулями и напечатать все
полученные 10 чисел.
посмотри что получается если выполнить команды для чисел 10 и 22 допиши команды алгоритма и выполни команды для чисел 8 и 30 и следущие задание к нему
же 1) начало 2) запиши число 3) вычти если полученное число меньше 10 то 5) прибавь иначе 6) вычти 7) прибавь 8) конец
Вы находитесь на странице вопроса "В цикле получите с клавиатуры 10 разных чисел , сколько среди них четных?", категории "информатика". Данный вопрос относится к разделу "1-4" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.