| 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.
|
| |
| |
