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

Question

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

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.

Comments

Спасибо большое