По номеру n в списке преподавателя вывести фамилию студента данной подгруппы. (решить задачу в Кумире)

Трехзначное число в системе счисления по основанию p может быть записано, как
Разница между максимальным и минимальным трехзначными числами должна превышать десятичное число 200 (пока не будем учитывать дополнительное ограничение на несимметричность), т.е.

В целых числах получаем условие p≥6, т.е. основание системы счисления не может быть меньше 6.
Найдем, сколько трехзначных чисел можно получить в системе счисления с основанием 6:
Симметричными будут числа вида 5х5, 4х4, 3х3, 2х2, 1х1, где х - любая из цифр по основанию 6. Итого получается пять групп, в каждой из которых шесть чисел, т.е. всего трехзначных симметричных чисел может быть 30. Следовательно, в системе счисления по основанию 6 можно записать 215-30=185 трехзначных несимметричных чисел, что меньше ограничения 200.
Проверим систему счисления по основанию 7:
Симметричными будут числа вида 6х6, 5х5, 4х4, 3х3, 2х2, 1х1, где х - любая из цифр по основанию 7. Итого получается шесть групп, в каждой из которых семь чисел, т.е. всего трехзначных симметричных чисел может быть 42. Следовательно, в системе счисления по основанию 7 можно записать 342-42=300 трехзначных несимметричных чисел, что превышает ограничение 200.

ответ: 7

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(31,-10,12); a.Println;
  Writeln('Дней с нулевой температурой- ',a.Where(t->t=0).Count);
  Writeln('Дней с отрицательной температурой- ',a.Where(t->t<0).Count);
  Writeln('Дней с положительной температурой- ',a.Where(t->t>0).Count);
end.

Пример
9 -8 0 -10 5 -10 5 -8 -5 8 -2 0 -7 -5 3 6 10 5 -5 1 5 5 10 -3 -3 6 8 7 6 7 12
Дней с нулевой температурой- 2
Дней с отрицательной температурой- 11
Дней с положительной температурой- 18

Если хочется вводить с клавиатуры, вместо строки
var a:=ArrRandom(n,-10,12); a.Println;
надо написать
var a:=ReadArrInteger('Введите температуру по дням'+NewLine,31);