Расчет среднего заработка (Pascal -> C++) - C++ - Ответ 6392101

program laba;
uses crt;
Type
raschet = record
FIO:string[20];
zarab1:integer;
zarab2:integer;
zarab3:integer;
obshzar:integer;
end;
Var
rsz:array [1..20] of raschet;
n,k:integer;
procedure vvod;
var
i:integer;
begin
clrscr;
writeln('input N');
readln(n);
for i:=1 to n do
Begin
writeln('vvedite dannie');
readln(rsz[i].FIO);
writeln('vvedite zar1');
readln(rsz[i].zarab1);
writeln('vvedite zar2');
readln(rsz[i].zarab2);
writeln('vvedite zar3');
readln(rsz[i].zarab3);
end;
end;
procedure vivod;
var
i:integer;
begin
clrscr;
begin
clrscr;
writeln('г==========T==========T==========T=========T================¬');
writeln('¦FIO       ¦Zarab1    ¦  Zarab2  ¦ Zarab3  ¦    Obshzar     ¦');
for i:=1 to n do
begin
writeln('¦==========+==========+==========+=========+================¦');
writeln('¦',rsz[i].FIO:10,'¦',rsz[i].zarab1:10,'¦',rsz[i].zarab2:10,'¦',rsz[i].zarab3:9,'¦',(rsz[i].zarab1+rsz[i].zarab2+rsz[i].zarab3)/3:16:2,'¦');
end;
writeln('L==========¦==========¦==========¦=========¦================-');
readkey;
end;
end;
procedure poiskl;
var
i:integer;
h:string;
ch:char;
begin
clrscr;
h:=' ';
write('vvedite nazvanie');
readkey;
repeat
read(ch);
until(ch=#10);
readln(h);
i:=1;
while (h<>rsz[i].FIO) and (i<=n) do i:=i+1;
clrscr;
if h=(rsz[i].FIO) then
writeln('naiden element', i)
else writeln ('takogo elementa net');
readln;
end;
 
begin
while true do
begin
clrscr;
writeln('г==================================¬  ');
writeln('¦            M E N U               ¦  ');
writeln('¦==================================¦  ');
writeln('¦ 1-INPUT 2-OUPUT 3-SEARCH 4-EXIT  ¦  ');
writeln('L==================================-  ');
read(k);
case k of
 1:vvod;
 2:vivod;
 3:poiskl;
 4:exit
 else writeln ('vvedite chislo ot 1 do 4');
   read(k);
 end;
 end;
 end.