вот сам код:
{Составьте список группы спортсменов, участвовавших в соревнованиях по спортивной гимнастике,
включающей N человек. Для каждого гимнаста укажите фамилию, имя,
номер школы, класс, результаты по соревнованию. Осуществите поиск информации
о спортсменах, показавших лучший и худший результаты.}
program nomer4;
uses crt;
type
sport=record
sur:string;
name:string;
nomber:integer;
ass:byte;
res:integer;
end;
var
mas:array[1..100] of sport;
x,y:real;
n,i,max,min:integer;
procedure spisok(x:real);
begin
writeln('Самый лучший результат:');
writeln;
writeln;
writeln('-------------------------------------------');
writeln('Фамилия|',' Имя |','Номер школы|','Класс|','Результат|');
writeln('-------------------------------------------');
max:=0;
min:=0;
for i:=1 to n do
if mas[i].res > max then
max:=mas[i].res;
writeln(max);
begin
writeln(mas[i].sur:7,'|',mas[i].name:7,'|',mas[i].nomber:11,'|',mas[i].ass:5,'|',mas[i].res:9,'|');
end;
writeln('--------------------------------------------');
end;
BEGIN
clrscr;
writeln('Введите количество спортсменов');
readln(n);
for i:=1 to n do
begin
writeln('Введите фамилию');readln(mas[i].sur);
writeln('Введите имя');readln(mas[i].name);
writeln('Введите номер школы');readln(mas[i].nomber);
writeln('Введите класс');readln(mas[i].ass);
writeln('Введите результат');readln(mas[i].res);
writeln('___________________________________________________________________');
end;
clrscr;
writeln('-------------------------------------------');
writeln('Фамилия|',' Имя |','Номер школы|','Класс|','Результат|');
writeln('-------------------------------------------');
for i:=1 to n do
begin
writeln(mas[i].sur:7,'|',mas[i].name:7,'|',mas[i].nomber:11,'|',mas[i].ass:5,'|',mas[i].res:9,'|');
end;
writeln('-------------------------------------------');
writeln;
writeln;
writeln;
spisok(x);
end.
... ну надеюсь кто-нибудь поможет.
Сообщение отредактировано: Spaun -