//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 Петров получает меньше всех
#include<iostream>
int main() {
int res = 1;
int n;
std::cin>>n;
for (int i=1;i<=n;++i) {
res*=i;
}
std::cout<<res;
}