Скачиваний:
288
Добавлен:
04.03.2014
Размер:
758 б
Скачать
Uses Crt;

Const
N=100;

Type
Names = Array [1..N] of String;
Temp = Array [1..N] of Integer;
Pf = record
Nam:Names;
T : Temp;
End;

Var
i,m,v : Integer;
f : File of Pf;
S : String;

Procedure Gon(S:String);
Var
f : File of Pf;

Begin
Assign(f,'Sanya.pas');
Reset(f);
Write(F,S);
Close(f);
End;

Begin
Repeat
ClrScr;
Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў«® Ј®а®¤®ў');
Readln(m);
Until (m>0) and (m<=N);
Writeln('‚ўҐ¤ЁвҐ б।­оо ⥬ЇҐа вгаг');
Readln(v);

For i:=1 to m do
Begin
Write(i,'-л© Ј®а®¤:');
Readln(nam[i]);
Write(i,'-®Ј® Ј®а®¤  ⥬ЇҐа вга :');
Readln(t[i]);
End;
s:='';
For i:=1 to m do
Begin
If t[i]<v
Then s:=nam[i];
End;
End.
Соседние файлы в папке Alex