Question

Программа в паскале. даны фамилии 10 сотрудников и зарплаты каждого. вывести фамилию сотрудника с наименьшей зарплатой

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
const
  n=10;
 
type
  Sot=record
  fam:string;
  zp:integer;
  end;  

begin
  var Sotr:=new Sot[n];
  Writeln('Вводите фамилию и через пробел зарплату');
  for var i:=0 to n-1 do begin
    var s:=ReadlnString(i+1+':');
    var ms:=s.Split;
    (Sotr[i].fam,Sotr[i].zp):=(ms[0],StrToInt(ms[1]));
    end;
  var r:=Sotr.OrderBy(x->x.zp).First;
  WritelnFormat('{0} получает всего лишь {1}',r.fam,r.zp)
end.

Тестовое решение:
Вводите фамилию и через пробел зарплату
1: Иванов 32000
2: Петров 28000
3: Козлов 34000
4: Сидорова 41400
5: Пупкин 30000
6: Кузьмина 36000
7: Васечкин 29700
8: Бененсон 32500
9: Паутова 41000
10: Ромашкин 36400
Петров получает всего лишь 28000

Answer 2

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
  n = 10;
type
  tabel = record
    f: string[20];
    money: integer;
  end;

var
  a: array[1..n] of tabel;
  i, min, imin: integer;

begin
  min := a[1].money;imin := 1;
  for i := 1 to n do begin
    write('Введите Фамилию ',i,' сотрудника : ');
    readln(a[i].f);
    write(a[i].f,' получает :');
    readln(a[i].money);
    if a[i].money < min then begin
      min := a[i].money;imin := i;
    end;
  end;
  writeln(a[imin].f, ' получает меньше всех ');
end.

Тестовое решение:
Введите Фамилию 1 сотрудника : Иванов
Иванов получает :15000
Введите Фамилию 2 сотрудника : Петров
Петров получает :12000
Введите Фамилию 3 сотрудника : Сидоров
Сидоров получает :30000
Введите Фамилию 4 сотрудника : Железнов
Железнов получает :75000
Введите Фамилию 5 сотрудника : Греков
Греков получает :23000
Введите Фамилию 6 сотрудника : Смирнов
Смирнов получает :34000
Введите Фамилию 7 сотрудника : Сурков
Сурков получает :27000
Введите Фамилию 8 сотрудника : Водный
Водный получает :14000
Введите Фамилию 9 сотрудника : Беляев
Беляев получает :33000
Введите Фамилию 10 сотрудника : Жуков
Жуков получает :17000
Петров получает меньше всех