Задан одномерный массив целых чисел. Найти произведение тех ее элементов, которые делятся на 4 без остатка (алгоритм и Pascal-программа)
5-9 класс
|
var a:array[1..100] of integer;
i,p,n:integer;
begin
writeln('введите количество элементов'); read(n);
p:=1;
randomize; {случайные числа}
for i:=1 to n do {от 1 до n элемента}
begin
a[i]:=random(100)-50; {случайные числа, можешь указать любые значения}
if a[i] mod 4=0 then{если элемент массива делится на 4 с остатком 0}
p:=p*a[i]; {умножаем текущее p на этот элемент}
end;
writeln(p); {выводим произведение}
end.
В случае,если в массиве будет число 0, оно будет делится на 4 без остатка, поэтому произведение будет 0. Если это не нужно, то строку if a[i] mod 4=0 then
замени на if (a[i]<>0) and (a[i] mod 4=0) then Тогда 0 учитываться не будет.
Другие вопросы из категории
схема узора для вязания крючком
муляж яблока
схема метро
манетка
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
от A до B включительно.
2)Даны натуральные числа от A до B(A<B). Найти произведение тех из них, которые делятся на 3 и не делятся на 4.
3)Ангелина узнав, что Боря занимается спортом, решила не отставать. Она каждый день делала от 3 до 5 упражнений на икры (вводится во время выполнения программы) и 5 упражнений на пресс. Сколько упражнений она сделала за 5, 10 и 13 дней. (количество упражнений на икры на каждый день вводится отдельно)
6.Программа должна вывести одно число:сумму чисел,введенных с клавиатуры, кратных 4 и оканчивающихся на 6.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.