Bason4ik | Дата: Суббота, 29.10.2011, 03:42 | Сообщение # 1 |
Абитуриент
Группа: Пользователи
Сообщений: 2
Награды: 0
Репутация: 0
Статус: Offline
| program st_grup; uses crt; Type student=Record; famil:string[20]; name:string[15]; let:14..30; rost:word; end; var group:file of student; person:student; i,k,dl,ws:word; begin assign(group,'gruppa.daf); reset(group); i:=0; dl:=0; ws:=0; while Not EOF(group) do begin i:=i+1; write(i,'); read(group,person); with person do begin ws:=ws+let; writeln(famil,'',name,let:3,rost:5); if rost>dl then begin dl:=rost; k:=i-1; end; end; end; seek(group,k); read(group,person); writeln('Самый высокий в группе,'',person.name); writeln('его рост - '.person,rost); close(group); writeln('Средний возраст студентов группы P-198A',ws/i:5:2); readln; end.
|
|
| |