9 КЛАСС ИНФОРМАТИКА ПОМОГИТЕ Дан целочисленным массив из 20 частей, все

Question

9 КЛАСС ИНФОРМАТИКА ПОМОГИТЕ Дан целочисленным массив из 20 частей, все

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

Задать свой вопрос

Вовка Куштовский
Информатика
2019-01-12 17:17:33
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

На уроке физкультуры воспитанник обязан подняться по канату на вышину 30

1926 насколько можно уменьшить -------3924

рыцари всегда говорят правду а лгуны всегда врут как с помощью

Написать минисочинение на листочке. Тема: quot;Доброта и сочувствие в рассказе Куприна

сочинить сказку в книжку малышку

закодируйте слово диск

Сократите алгебраические дроби 18bc/24c 25a2y/15by 24a3/6ac 27x2y/21xy3 плизззз безотлагательно!!!!

Синтаксический разбор предложения Пушка предназначалась для защиты Кремля в 16 веке

В каких городках Латвии, на гербе имеется птица ? Желанно 6-7.

краснокожие южной Америки при изготовлении мячей для игр использовали а) пух

Валентина Лосвина · Answer 1 · 2019-01-12 17:26:19+3:00

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 dgt;dm then
begin
dm:=d;
m:=i
end
end;
writeln (m)
end.

О проекте

9 КЛАСС ИНФОРМАТИКА ПОМОГИТЕ Дан целочисленным массив из 20 частей, все

Добро пожаловать!