Question

9 КЛАСС ИНФОРМАТИКА ПОМОГИТЕ
Дан целочисленным массив из 20 элементов, все элементы которого положительные числа , не превосходящие 100. Напишите программу которая находит и выводит номер элемента , имеющего максимальное количество целочисленных делителей ( если таких элементов несколько, то номер любого из них).
На Паскале АБС
Заранее спасибо

Answer 1

const n=20;
var a: Array [1..n] of integer;
i,j,m,d,dm: Integer;
begin
for i:=1 to n do
a[i]:=random(100);
writeln (a);
for i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do
if a[i] mod j = 0 then d:=d+1;
if d>dm then
begin
dm:=d;
m:=i
end
end;
writeln (m)
end.