59

Дан целочисленный массив из 30 элементов, все элементы которого — положительные…

21 февраля 2023

Дан целочисленный массив из 30 элементов, все элементы которого — положительные числа, не превосходящие 100. Опишите в Паскале алгоритм, который находити выводит номер элемента, имеющего максимальное количество целочисленных делителей. Исходные данные объявлены так, как показано ниже. Разрешается не использовать часть описанных ниже переменных.

категория: информатика



47

const N=30; var a: array[1… N] of integer; i, j, k, imax, kmax: integer; beginkmax: =0; imax: =0; for i: =1 to N do readln (a[i]); k: =0; for j: =1 to a[i] div 2 do if a[i] mod j=0 then inc (k); if k>kmax then beginkmax: =k; imax: =i; end; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...