var
a: array[1..5] of real;
i: integer;
min: real;
begin
for i := 1 to 5 do
read(A[i]);
min := A[1];
for i := 2 to 5 do
if a[i] < min then
min := A[i];
write(min);
end.
Не совсем понял о какой таблице речь.
Представляем буквы числами от 0 до 4. А-0, Р-1, У-2, К-3, О-4
получается список на первом месте которого 00000, а на последнем 44444
Переводим последнее число из пятеричной системы счисления в десятеричную и прибавляем единицу (т.к. отсчет начинается с нуля, а нумерация с 1)
Получаем: Всего 3125 комбинаций
По той же логике на 517 месте стоит число 516.
Переводим его в пятеричную систему - 04031
Подставляем вместо цифр буквы.
Под номером 517 находится комбинация - АОАКР
Теперь обратное, вместо букв цифры - 32143
Переводим в десятичную систему и прибавляем 1.
Курок находится под номером 2174
В строчке min:=A[1]; ты присваеваешь переменной ещё не заданное значение массива. Перенеси эту строчку под первый цикл, должно заработать