Перевести с Pascal на C++

[surof1n]

Добрый день. Буду благдарен, если кто-нибудь сможет помочь с заданием.
Задание: Распечатать фамилии тех учеников класса, которые являются хорошистами и отличниками по итогам года. Также указать, насколько их средний бал отличается от среднего балла класса.
Паскаль

PHP код:

Uses crt;
Type student=record
            name:string[20];
            sred:real;
            end;
Var oc:array[1..30,1..8]of integer;
      st:array[1..30]of student;      
      i,j,n,k:integer;
      kolvoH, sredK,sredH,raznica:real;
Begin
ClrScr;
  write('Количество учеников: ');
  readln(n);
  writeln('Введите оценки');
  for i:=1 to n do
  begin
        writeln (i,'-го ученика:');
        write ('ФИО: ');         readln(st[i].name);
        write ('Русский яз.: '); readln(oc[i,1]);
        write ('Литература: ');  readln(oc[i,2]);
        write ('Математика: ');  readln(oc[i,3]);
        write ('Физика: ');      readln(oc[i,4]);
        write ('Химия: ');       readln(oc[i,5]);
        write ('ИЗО: ');         readln(oc[i,6]);
        write ('ИНО: ');         readln(oc[i,7]);
        write ('Физ-ра: ');      readln(oc[i,8]);
        writeln;
  end;
  
  sredK:=0;   {средний балл класса изначально = 0}
  sredH:=0;   {средний балл хорошистов изначально = 0}
  kolvoH:=0;  {кол-во хорошистов}
  
  for i:=1 to n do
    with st[i] do
    begin
    sred:=0;
      begin
        for j:=1 to 8 do 
           sred:=sred+oc[i,j]; {находим сумму оценок каждого ученика}
      end;
    sred:=sred/8; {находим среднюю оценку каждого ученика}
    sredK:=sredK+sred; {находим сумму средних оценок всех учеников}
    end;   
    
  writeln (' Отличники:');
  for i:=1 to n do
    begin
      if st[i].sred=5 then  {если средняя оценка 5, то это отличник}
      writeln (' ',st[i].name);
    end;
    
  writeln;  
  writeln (' Хорошисты:');
  for i:=1 to n do
    begin
      k:=0; {у каждого ученика k вначале =0}
        begin
        for j:=1 to 8 do 
          if oc[i,j]>=4 then {если оценка 4 и выше то}
          if oc[i,j]=4 then  {если оценка 4 то}
          k:=k+1;    {увеличив k мы даем понять что у ученика из всех оценок есть хотябы 1 четверка}
        end;
        if k>0 then  {если есть 4ки то}
          begin
          writeln (' ',st[i].name);
          kolvoH:=kolvoH+1;    {считаем хорошистов}
          sredH:=sredH+st[i].sred; {находим сумму средних оценок хорошистов}
          end;
    end; 
      
  sredK:=sredK/n;      {средняя оценка класса}
  sredH:=(5+(sredH/kolvoH))/2; {средня оценка хорошистов}
  
  raznica:=sredH-sredK;  {находим разницу}
  
  writeln;
  writeln ('Средний балл хорошистов и отличников: ',sredH:0:1);
  writeln ('Средний балл класса: ',sredK:0:1);
  writeln ('Разница: ',raznica:0:1);
Readln
End 


[min@y™]

перевод – неблагодарное занятие, проще и быстрее написать всё с нуля.