Question

Дан массив А от 1 до 7. Найти количество элементов кратных 11.

Answer 1

program pr_1;
var a:array [1..7] of integer;
c, i: integer;
begin
for i:= 1 to 7 do
begin
a[i] := random(100);
if a[i] mod 11 = 0 then c := c + 1;
writeln(c)
end.