записи Опции

[электрик]

не могу рещить прогу искал в поиске подобного не нашел!!! не знаю как делать
Вот она:
составить прогу, к-ая создает файл, компоненты которого имеют следующую структуру:
табельный номер;
ФИО;
оклад.
Введите в файл данные о пяти работниках, выведите в другой файл данные о работнике, имеющем максимальный оклад

[klem4]

ну например так :

uses crt;
type
   Trec=record
      FIO:string[51];
      oklad:integer;
   end;

var
   f,f1:text;

   workers:array[1..5] of TRec;

   i,nmax:integer;


Begin
   clrscr;
   assign(f,'c:\Data.txt');
   rewrite(f);
   for i:=1 to 5 do
    with workers[i] do
     begin
        writeln('Фио рабочего N  ',i);
        readln(fio);
        writeln(f,fio);
        write('Оклад : ');
        readln(oklad);
        writeln(f,oklad);
     end;

   nmax:=1;

   for i:=2 to 5 do
    if workers[i].oklad>workers[nmax].oklad then
     nmax:=i;

   assign(f1,'c:\max.txt');
   rewrite(f1);
   writeln(f1,workers[nmax].fio);
   writeln(f1,workers[nmax].oklad);
   close(f1);

   close(f);

   readln;
end.