Двумерные массивы и функции. Нужна помощь.

[Jenkins]

Двумерные массивы и функции. Нужна помощь.

Здравствуйте, мне очень срочно нужна помощь в решении двух задач.
Первая на двумерные массивы:
Дан двумерный массив из 5 строк и 6 столбцов. Определить для каждого четного столбца максимальный элемент. Найти произведение этих элементов.

А вторая на функции:
Дан одномерный массив из 100 случайных целых чисел в диапазоне от 5 до 25 включительно. Вывести все числа, которые максимально часто встречаются в массиве и количество их повторений. Подсчет количества повторений для числа оформить в виде функции.

Помогите пожалуйста!

 

[Vladimir_S]

Дан одномерный массив из 100 случайных целых чисел в диапазоне от 5 до 25 включительно. Вывести все числа, которые максимально часто встречаются в массиве и количество их повторений. Подсчет количества повторений для числа оформить в виде функции.

TYPE
 Ar=Array[1..100] of Byte;
VAR
 A:Ar;
 C,N:Array[5..25] of Byte;
 i,j:Integer;
 Dummy:Byte;

Function Rep_num(B:Ar;Q:Byte):Byte;
 var
  Ir:Integer;
  Num:Byte;
 begin
  Num:=0;
  for Ir:=1 to 100 do
   if B[Ir]=Q then Inc(Num);
  Rep_num:=Num;
 end;

BEGIN
 Randomize;
 For i:=1 to 100 do
  A[i]:=Random(21)+5;
 For i:=0 to 3 do
  begin
   For j:=1 to 25 do
    Write(A[25*i+j]:3);
   WriteLn;
  end;
 Writeln;
 WriteLn('Press "Enter" to continue...');
 ReadLn;
 For i:=5 to 25 do
  begin
   N[i]:=i;
   C[i]:=Rep_Num(A,N[i]);
  end;
 For i:=5 to 24 do
  For j:=5 to 29-i do
   If C[j]>C[j+1] then
    begin
     Dummy:=C[j+1];
     C[j+1]:=C[j];
     C[j]:=Dummy;
     Dummy:=N[j+1];
     N[j+1]:=N[j];
     N[j]:=Dummy;
    end;
 For i:=25 downto 5 do
  WriteLn(N[i]:2,'  -  ',C[i]:2,' times');
 ReadLn;
END.

 

[Jenkins]

а можно на С++?
могу и с оплатой

 

[Jenkins]

актуально