Question

Дан массив C(17). Определить кол во элементов кратного 11

Answer 1

Var c:array[1..17] of integer;
i,k:integer;
begin
for i:=1 to 17 do read(c[i]);
k:=0;
for i:=1 to 17 do
if c[i] mod 11 = 0 then k:=k+1;
writeln('Количество элементов кратных 11 = ', k);
end.