Структура, динамический список, С++

[Anton_XXX]

Всем привет!
Остались у меня 2 задачки, люди, помогите решить их на С++

1) Работа полями
Задача: По данным сведениям о студентах группы определить средний вес мальчиков и средний рост девочек.

2) Работа с динамическими списками
Задача: Составить программу, которая переворачивает список, т.е. изменяет ссылки в этом списке так чтобы его элементы оказались расположены в обратном порядке.

[Anton_XXX]

Нашел 2 задачу на Паскале, переделайте плыз на Borland С++

Код: Выделить всё

program one;
uses crt;
type link=^cell;
 cell=record
 inf:integer;
 next:link;
 end;
var
p1,p,q,buf:link;
n,i:integer;
begin
clrscr;
 new(q);
 p:=q;
 readln(n);
 while n<>0 do
  begin
   p^.inf:=n;           {standartnoe formirovanie spiska vvodim alimenti do nulia}
   readln(n);           {esli vveli nol to spisok zakonchilsia (nol ne vkluchaetsia)}
    if n=0 then p^.next:=nil
    else
     begin
      new(p^.next);
      p:=p^.next;
     end;
  end;
{===== }
p:=q;     {p nachalo spiska(adres pervogo alimenta)}
p1:=nil;   {p1 vspomogatelnaya peremennaya}
 while p<>nil do     {idem ot nachala spiska do konca}
  begin
   buf:=p^.next;  {zapominaem adres sleduschego zvena }
   p^.next:=p1;   {perenaprovliaem sleduschee zveno na p1 (v perviy raz budet nil konec spiska)}
   p1:=p; {zapominaem v p1 adres tekuschego zvena chtob potom sleduschee napravit na nego}
   p:=buf;   {perehodim k sleduschemu zvenu  i tak do konca spiska}
  end;
p:=p1;  {v p1 ostalsia adres poslednego zvena teper ono pervoe}
 while p<>nil do
  begin
   writeln(p^.inf);       {vivodim spisok na monitor dlia proverki}
   p:=p^.next;
  end;
readln;
end.

[Anton_XXX]

Вот 1 задача на паскале:
Переделайте плызз на Borland C++

Код: Выделить всё

uses crt;
const nmax=30;
type
uchenik=record
        fam:string[20];
        pol:char;
        rst:byte;
        ves:byte;
        end;
var n,i,k:byte;
    m:array[1..nmax] of uchenik;
    sr:real;
begin
clrscr;
repeat
write('Количество учеников n=');
readln(n);
until n in [1..30];
writeln('Введите данные об ',n,' учениках:');
for i:=1 to n do
 begin
  writeln('Ученик ',i);
  write(' Фамилия: ');readln(m[i].fam);
  repeat
  write(' Пол (м,д): ');readln(m[i].pol);
  until m[i].pol in ['м','д'];
  write(' Рост: ');readln(m[i].rst);
  write(' Вес: ');readln(m[i].ves);
 end;
sr:=0;k:=0;
for i:=1 to n do
if m[i].pol='м'then
 begin
  sr:=sr+m[i].ves;
  k:=k+1;
 end;
sr:=sr/k;
writeln('Средний вес мальчиков=',sr:0:2);
sr:=0;k:=0;
for i:=1 to n do
if m[i].pol='д'then
 begin
  sr:=sr+m[i].rst;
  k:=k+1;
 end;
sr:=sr/k;
writeln('Средний рост девочек=',sr:0:1);
readln
end.

[Anton_XXX]

ни кто мне не поможет???