сервис вопросов и ответовПользователь вводит 10 целых чисел. Подсчитать, сколько среди них четных. (В Pascal)
5-9 класс|
|
Данил14092000
06 нояб. 2014 г., 0:50:25 (9 лет назад)
Iren2808
06 нояб. 2014 г., 2:23:10 (9 лет назад)
program asdf;
var a:array[1..10] of integer;
i,b:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i] mod 2 = 0 then b:=b+1;
writeln(b);
end.
Ответить
Другие вопросы из категории
Читайте также
1, С клавиатуры вводятся 10 натуральных чисел. Вычислить сумму четных элементов.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
1, С клавиатуры вводятся 10 натуральных чисел. Вычислить сумму четных элементов.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
С клавиатуры вводятся 3 числа, подсчитать сколько среди них четных положительных чисел.
PS: использовать функцию деления по модулю:
a mod b- выдает остаток при делении числа а на число b
15 mod 2=1
15 mod 3=0
В ПАСКАЛЕ!№1 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить сколько среди них чисел, кратных 4; №2 С клавиатуры вводятся 10
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
Вы находитесь на странице вопроса "Пользователь вводит 10 целых чисел. Подсчитать, сколько среди них четных. (В Pascal)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.