program zapisi;
type sportsman=record
fam:string[30];
resault:real;
razr:byte;
end;
kom: array[1..20]of sportsman;
APPTYPE CONSOLE}

uses
SysUtils;

procedure vvod(n: integer; var kom1: kom);
var i: integer;
for i:=1 to n do
begin
writeln('vvedite familiyu');
readln(kom1[i].fam);
writeln('vvedite razryad');
readln(kom1[i].razr);
writeln('vvedite rezultat');
readln(kom1[i].resault);
end;

procedure vyvod(n: integer; kom1: kom);
var i: integer;
begin
for i:=1 to n do
begin
write(kom1[i].fam,'');
write(kom1[i].resault,'');
wriite(kom1[i].razr);
writeln;
end;

procedure priz(n: integer, kom1: kom, var kom2:kom);
var i,im, k: integer; max:real;
begin
for k:=1 to 3 do
begin
max:=kom1[k].resault;
im:=k;
for i:=k to n do
if kom1[i].resault begin
max:=kom1[i].resault;
i:=im;
end;
kom1[]:=kom2[];
begin

end.

Случайные файлы

Файл
Конкуренты.txt
Readme.txt
info.txt
01.txt
Readme.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.