Найти количество четных чисел в одномерном массиве размерностью 5.
10-11 класс
|
var
a : array [1..5] of integer;
count, i ; integer;
begin
count := 0;
for i := 1 to 5 do read (a[i]);
for i := 1 to 5 do
if a[i] mod 2 = 0 then inc (count);
writeln (count);
end.
Другие вопросы из категории
таким образом, что если в данный момент времени канал использует только один человек, то скачивание файла происходит со скоростью равной пропускной способности канала, а если канал используют оба человека - пропускная способность канала поровну делится между пользователями. Иван начал скачивать музыкальную композицию. Через 16 секунд Дима начал скачивать графический файл. Иван закончил скачивать музыкальную композицию через 1 минуту 8 секунд от начала скачивания своего файла. Для музыкальной композиции производится одноканальная (моно) звукозапись с частотой дискретизации 128 Гц. При записи использовались 16 уровней дискретизации. Графический файл содержал 16384 пикселей, кодированных с использованием палитры из 256 цветов. И в файле с музыкальной композицией и в графическом файле не использовалось сжатие данных. Кроме упомянутых скачиваемых файлов другой нагрузки на канал доступа в Internet не было. Сколько секунд длится музыкальная композиция, которую скачал Иван?
С помощью операционной системы или программ-утилит определить значения заданных характеристик компьютера (должно быть задано не менее трех характеристик).
1)величина вклада
2)срок вклада
3)процентная вставка
Исходные данные вводятся с клавиатуры. Формула для расчет дохода по вкладу =( величина вклада * процентная вставка / 100) / 365 * срок вклада
Программа:
Читайте также
3. Среди двухзначных чисел найдите те числа, которые кратны 3 и 4. 4. Среди трехзначных чисел найдите те, у которых все цифры равны. 5. Найдите среди трехзначных чисел симметричные числа. 6. Найдите среди четырехзначных чисел симметричные числа. 7. Найдите все трехзначные числа такие, что сумма цифр равна А, а само число делится на В. А и В вводятся с клавиатуры. 8. Найдите все трехзначные числа такие, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, при увеличении на 4 делятся на 5. 9. Найдите количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается на В, А и В вводятся с клавиатуры. 10. Найдите все трехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27. 11.Найдите все трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3-остаток 2, при делении на 4-остаток 3, само число делится на5. 12. Найдите все четырехзначные числа, в которых есть две одинаковые цифры. 13. Найдите сумму всех чисел из промежутка от А до В, кратных 13 и 5, А и В вводятся с клавиатуры. 14. Найдите все симметричные четырехзначные числа. 15.Найдите все трехзначные числа, которые состоят из различных цифр, а их сумма равна А.
Ребят, помогите! Тема: одномерные массивы. Две задачи:
1) Написать программу, которая из заданного одномерного массива размерности N находит сумму только тех элементов, значения которых больше некоторого значения S.
S=5; Массив: 0,4 5,6 -2 10,1
2) При поступлении в ВУЗ абитуриенты, получившие "Двойку" на первом экзамене, ко второму не допускаются. В массиве A[N] записаны оценки экзаменующихся, полученных на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену!
Заранее благодарю!
(Определить функцию, позволяющую распознавать четные числа).
. Изменить его левую цифру на "9"
организовать путем ввода с клавиатуры. В одномерном массиве из N натуральных чисел вычислить сумму удвоенных четных чисел.