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