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

193

194

Посмотреть ответы 2

Ответы на вопрос:

Chevalier26

Информатика

4,5(99 оценок)

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.