Дан одномерный целочисленный массив из n чисел. Найти количество четных элементо...

July 2022 1 2 Report

Дан одномерный целочисленный массив из n чисел. Найти количество четных элементов кратных к трем и семи.(блок схема не нужна) ДАМ 15 баллов

Answers & Comments

karicha2000 Var n,k,i:integer;
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.

1 votes Thanks 0

mamonda40 http://znanija.com/task/20561049

Answers & Comments

Helpful Links

Helpful Social