Дан целочисленный массив из 30 элементов, все элементы которого - положительные числа, не превосходящие 100. Опишите в Паскале алгоритм, который находити выводит номер элемента, имеющего максимальное количество целочисленных делителей. Исходные данные объявлены так, как показано ниже. Разрешается не использовать часть описанных ниже переменных.
const N=30; var a:array[1..N] of integer; i, j, k, imax, kmax: integer; begin kmax:=0; imax:=0; for i:=1 to N do readln(a); k:=0; for j:=1 to a div 2 do if a mod j =0 then inc(k); if k>kmax then begin kmax:=k; imax:=i; end; end.
