Найти количество элементов массива, значения которых кратны 3 и 5

Question

Информатика

Ефимий

16 ноября, 10:41

Найти количество элементов массива, значения которых кратны 3 и 5

+2

Ответы (1)

Знаете ответ на вопрос?

Эмка · Answer 1

Var

a:array[1 ... 10] of integer;

i, k:integer;

begin

for i:=1 to 10 do begin

write (i,'-й элемент: ') ;

readln (a[i]) ;

end;

k:=0

for i:=1 to 10 do

if a[i] mod 3 = 0 and a[i] mod 5 = 0 then

k:=k+1; {если кратно и 3, и 5 одновременно, то and. Если или 3, или 5, то or}

writeln (k,' элементов') ;

end.