type student=record FIO:string; age:integer; CountOf3:integer; end;
Const n=3;
Var ar:array[1..n] of student;
procedure reading(); Var i:integer; begin writeln('ФИО |Возраст | Количество троек'); for i:=1 to n do begin read(ar[i].FIO); write(' '); read(ar[i].age); write(' '); read(ar[i].CountOf3); writeln; end; end;
procedure writing(); Var i:integer; begin writeln('ФИО |Возраст '); for i:=1 to n do if ar[i].CountOf3=1 then write(ar[i].FIO,' ',ar[i].age); end;
