Массивы.Паскаль

[Ashley12]

Помогите, пожалуйста
1) Написать программу, которая ищет элемент с максимальным количеством делителей
2) Меняет местами максимальные элементы 1-ой половины минимальные второй
3) Ищет элементы с максимальной суммой цифр и максимальным произведением
4) Считает произведение элементов, у которых все цифры простые
Извиняюсь, что много, просто нам их задали на завтра, толком не объяснив теорию

[Jora_Kornev]

На чем застрял?

[Ashley12]

Вообще без понятия, как делать

[Hacker19_90]

Чё совсем не каких нароботок?

[Ashley12]

Вообще, к сожалению

[alex_fcsm]

Ну что-то должно быть. Давайте пробуйте, кидайте хоть какой-нить вариант.

[Mad_Cat]

1)

функция возвращает количество делителей числа

function GetN(N:integer):integer;
var i:integer;
c:integer;
begin
c:=0;
for i:=1 to round(sqrt(n)) do
if n mod i=0 then inc(c);
GetN:=c;
end;

4)

Функция проверяет являются ли все цифры числа простыми

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;
function AllPrime(N:integer):boolean;
var Res:boolean;
begin
Res:=true;
while N<>0 do begin
if not isprime(n mod 10) then begin
res:=false;break;end;
n:=n div 10; end;
Allprime:=res;
end;

3)

1 функция считает сумму цифр
2 функция считает произведение цифр

function Sum(N:integer):Real;
var Res:Real;
begin
Res:=0;
while N<>0 do begin
res:=res +n mod 10;
n:=n div 10; end;
sum:=res;
end;
{--------------------------------------}
function Mult(N:integer):Real;
var Res:Real;
begin
Res:=1;
while N<>0 do begin
res:=res *(n mod 10);
n:=n div 10; end;
Mult:=res;
end;