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

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

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

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

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

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

Цитата:

Сообщение от Jenkins (Сообщение 434471)

Дан одномерный массив из 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.

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

актуально :)