Программа содержащая сведения о месячной заработной плате работников предприятия

@mors356 · Регистрация: 08.10.2017

Каждая запись содержит поля - фамилия работника, наименование отдела, размер заработной платы за месяц. Вывести работников по отделам в порядке возрастания из зарплат. Помогите пожалуйста с условием (Вывод работников по отделам в порядке возрастания из зарплат).

Pascal

program zap;
 
type
rb = record
ImRab : string[20];
Otdel : string[15];
Zarplata : string[10];
end;
 
var
rab : rb;
n,i : integer;
 
begin
writeln ('Введите кол - во работников');
readln (n);
writeln ('Список работников');
for i := 1 to n do
begin
writeln ('Введите имя работника ');
readln (rab.ImRab);
writeln ('Введите отдел в котором работает работник ');
readln (rab.Otdel);
writeln ('Введите заработную плату работника в месяц');
readln (rab.Zarplata);
end;
 
end.

@ZX Spectrum-128 · 25.01.2018, 09:16

Вот похожее:
Вывести на экран и в отдельный файл список сотрудников по отделам в порядке убывания стажа

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	25.01.2018, 09:16	2
	Вот похожее: Вывести на экран и в отдельный файл список сотрудников по отделам в порядке убывания стажа 0

Опции темы