Записи

[Drago56]

Помогите вывести списки работников самого большого отдела, т.е отдел в котором находиться больше людей.

Uses CRT;
Const n=7;
Type Rabotnik=record
     F:string;
     Vozr:byte;
     Adres:string;
     NazvOd:String;
end;

Var mas:array[1..n] of Rabotnik;
  q,j,i:byte;

BEGIN
clrscr;
q:=1;max:=0;
Writeln('Zapolnite iformaciu o Rabotnik');
For i:=1 to n do begin
    Writeln('Rabotnik ',i);
    Write('Vvedite F: ');readln(mas[i].F);
    Write('Vvedite Vozr: ');readln(mas[i].Vozr);
    Write('Vvedite Adres: ');readln(mas[i].Adres);
    Write('Vvedite NazvOd: ');readln(mas[i].NazvOd);
end;
  
END.

[Stilet]

А я бы не так это делал: Две записи. Одна Собственно представляет отдел, вторая работников.

Type 
Rabotnik=record
     F:string;
     Vozr:byte;
     Adres:string;
end;
Otdel=record
     NazvOd:String;
     Rabotniki:array[1..1000] of Rabotnik;
     Count:Integer;
end;

var Otdely:Array[1..10] of Otdel;

И процедуры:
Внесение

procedure Add(Otdel:String;Rab:Rabotnik);
var i:integer;ok:boolean;
begin
 ok:=false;
 for i:=1 to 10 do if (Otdely.NazvOd=Otdel)or(Otdely.NazvOd='') then begin ok:=true; break;end;
 if ok then begin
   inc(Otdely[i].Count);
 end else begin
   for i:=1 to 10 do if (Otdely.NazvOd='') then begin break;end;
   Otdely[i].Count=1;
   Otdely[i].NazvOd=Otdel;
 end;
Otdely[i].Rabotniki[Otdely[i].Count]:=Rab;
end;

И поиск уже будет по элементу Count, который увеличивается на единицу всякий раз когда работника вносят в отдел.
Сам смысл процедуры: Найти по наименованию нужный отдел, если найден внести нового работника в хвост массива, если не найден - найти первую пустую ячейку в списке отделов, создать новый отдел там и внести в него работника.

Идея понятна?

[Drago56]

Тут вводишь сам все поля записи и надо вывести списки работников самого большого отдела(это работники одного отдела где их число превышает число работников других отделов)

[Stilet]

Тут вводишь сам все поля записи и надо вывести списки работников самого большого отдела(это работники одного отдела где их число превышает число работников других отделов)

Хм... Что ж. Не буду мешать.

[Drago56]

Спасибо за помощь

Вот файл моей программы полностью ООП паскаль.Если не трудно кому посмотрите Задачу №4 на записи в программе,как там можно вывести самый большой отдел