переделать код программы с языка паскаль на с++. вот код паскаль: var f: array[1..500] of record fam: string; bal: boolean; end; buf: boolean; str: string; b1,b2,i,n,j: integer; c: char; begin readln(n); for i: =1 to n do begin repeat begin read(c); f[i].fam: =f[i].fam+c; end; until c=' '; repeat begin read(c); f[i].fam: =f[i].fam+c; end; until c=' '; f[i].bal: =false; read(b1,b2); if (b1< 30)or(b2< 30) then f[i].bal: =true; end; for i : = 1 to n-1 do begin for j : = i + 1 to n do if f[i].fam > f[j].fam then begin str: = f[i].fam; f[i].fam: = f[j].fam; f[j].fam: = str; buf: = f[i].bal; f[i].bal: = f[j].bal; f[j].bal: = buf; end; end; for i: =1 to n do if f[i].bal=true then writeln (f[i].fam); end.

mpaxomow    2   06.06.2019 03:50    1