Не знаю С++

[Черных]

Вообщем отчислили меня с военного училища с пятого курса и воссстановился я в политех. пересчитали предметы, оказалось, что системное программирование у них это не информатика у нас.. мы проходили паскаль и решил задачу (хвост за второй курс) в паскале, а надо в С++.Вот задача:
разработать программу. исходные данные вводятся с клавиатуры, запрашиваются у пользователя,результат выводится на дисплей. обмен данными через параметры функций. само задание: ДАНА ПОСЛЕДОВАТЕЛЬНОСТЬ ДЕЙСТВИТЕЛЬНЫХ ЧИСЕЛ (А1,А2,...Аn). НАЙТИ МИНИМАЛЬНОЕ ЗНАЧЕНИЕ В ПОСЛЕДОВАТЕЛЬНОСТИ И ПОДСЧИТАТЬ СКОЛЬКО РАЗ ОНО В НЕЙ ВСТРЕЧАЕТСЯ.

вот она в паскале

с использованием функций:

program p1;
uses crt;

var i,n,min,kol:integer;
a: array [0..100] of integer;

function minim( b: array of integer; k:integer): integer;
var l,z:integer;
begin
z:=32767;
for l:=0 to k-1 do
begin
if b[l]<z then
begin
z:=b[l];
end;
writeln(b[l]);
end;
minim:=z;
end;

begin

write('Vvedite kolichestvo elementov posledovatelnosti: ');
readln(n);
for i:=0 to n-1 do
begin
readln(a[i]);
end;

min:=minim(a[i],n);

writeln('Minimalnoe chislo v posledovatelnosti: ',min);
write('Kolichestvo minimalnyh elementov: ',kol);
readln;

end.

Без использования функций:

var i,n,min,kol:integer;
a: array [0..100] of integer;
begin
write('Vvedite kolichestvo elementov posledovatelnosti: ');
readln(n);
min:=32767;
kol:=1;
for i:=0 to n-1 do
begin
readln(a[i]);
if a[i]=min then kol;
if a[i]<min then
begin
min:=a[i];
kol:=0;
end;
end;

writeln('Minimalnoe chislo v posledovatelnosti: ',min);
write('Kolichestvo minimalnyh elementov: ',kol);
readln;
end.


ПОМОГИТЕ ПОЖАЛУЙСТА ЕЕ В С++ СДЕЛАТЬ! ЕСЛИ НАДО ОТБЛАГОДАРИТЬ, ПИШИТЕ!

[kenwood2010]

kenwood20072@rambler.ru
напиши обсудим!

[kenwood2010]

Черных - это не платежеспособный клиент и обманщик!
Внимание!
Не работайте с ним!