Найти количество положительных чисел, кратных 7 (информатика 9 класс): дана последовательность из N чисел, количество чисел вводится с клавиатуры. Числа выбираются из промежутка [ 10; 50 ] .
кто в этом разбирается, напишите программу, нужна пятёрка. Есть ещё две задачи,
var i,M,K,N:integer;
begin
Readln(N);
K:=0;
for i:=1 to N do
begin
readln(M);
if M mod 7 = 0
then
begin
K:=K+1;
end;
end;
write(K);
end.