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

Question

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

Answer 1

Program zadacha;vara: array[1..1000] of integer;i,n,kolvo: integer;beginwriteln('vvedite kol-vo elementov massiva');read(n);for i:=1 to n do begina[i]:=random(500);write(a[i]:6);end;writeln();kolvo:=0;for i:=1 to n do beginif (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then begin kolvo:=kolvo+1;write(a[i]:6);  end;end;writeln();writeln('kol-vo elementov, kratnih 3, 5 = ', kolvo);end.

---

Comments

если человек не понимает программирование вообще, пусть хоть компьютерная программа с ним поговорит ))))) чтобы было какое-то подобие изучения информатики