Дан одномерный целочисленный массив из n чисел. Найти количество четных элементов кратных к трем и семи.(блок схема не нужна) ДАМ 15 баллов
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
a:array[1..1000] of integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы');
for i:=1 to n do
read(a[i]);
k:=0;
for i:=1 to n do
if not odd(a[i]) then
if (a[i] mod 7 = 0) or (a[i] mod 3 = 0) then inc(k);
writeln('Кол-во четных элементов кратных 3 или 7 : ',k);
end.