. Не знаю как сделать По заданным 4-ем элементным целым массивам a, b, c
вычислить:
max (a[ i ]+b[ i ]), max (a[ i ]+c[ i ]), max (b[ i ]+c[ i ])

216₈ =  142₁₀ = 8Е₁₆

D3₁₆ = 211₁₀ = 323₈

Объяснение:

Переведите число 216₈ по схеме А8 → А10 → А16

216₈ = 2 * 8² + 1 * 8¹ + 6 * 8⁰ = 2 * 64 + 1 * 8 + 6 * 1 = 128 + 8 + 6 = 142₁₀

216₈ =  142₁₀

142 / 16 = 8 + остаток 14 (Е)

8 / 16 = 0 + остаток 8

записываем остатки снизу вверх

В качестве цифр 16-ой системы счисления используются цифры от 0 до 9 и латинские буквы от A до F.

А = 10₁₀   B = 11₁₀   C = 12₁₀   D = 13₁₀   E = 14₁₀   F = 15₁₀

142₁₀ = 8Е₁₆

Переведите число D3₁₆ по схеме А16 → А10 → А8

D3₁₆ = D * 16¹ + 3 * 16⁰ = 13 * 16 + 3 * 1 = 211₁₀

В качестве цифр 16-ой системы счисления используются цифры от 0 до 9 и латинские буквы от A до F.

А = 10₁₀   B = 11₁₀   C = 12₁₀   D = 13₁₀   E = 14₁₀   F = 15₁₀

D3₁₆ = 211₁₀

211 / 8 = 26 + остаток 3

26 / 8 = 3 + остаток 2

3 / 8 = 0 + остаток 3

записываем остатки снизу вверх

211₁₀ = 323₈

Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.