Нужно перевести данное творение из Питона в паскаль Задание вот: Яркости пикселей рисунка закодированы числами от 0 до 255 в виде матрицы. Преобразовать рисунок в черно-белый по следующему алгоритму: вычислить среднюю яркость пикселей по всему рисунку все пиксели, яркость которых меньше средней, сделать черными (записать код 0), а остальные – белыми (код 255).
Код на питоне:
import random
A = []
imax = 0
jmax = 0
imin = 0
jmin = 0
x = int(input("размер = "))
for i in range(x):
A.append([])
for c in range(x):
A[i].append(random.randint(10,99))
min = A[0][0]
max = A[0][0]
print('Матрица А:')
for i in range(x):
print()
for c in range(x):
print(" ",A[i][c],end = ' ')
for i in range(x):
print()
for c in range(x):
if(A[i][c] > max):
max = A[i][c]
imax = i+1
jmax = c+1
if(A[i][c] < min):
min = A[i][c]
imin = i+1
jmin = c+1
Заранее большое!

Итак, мы знаем что переходить мост нужно двум гномам одновременно, 1 остаётся, второй возвращает фонарь назад и переводит следующего. В принципе для решения задачи нам большего не нужно.

Возьмём самого медленного и самого быстрого гнома, итого они перейдут на другую сторону за 4 минуты. После чего быстрый должен будет вернуть фонарь назад потратив ещё 1 минуту.

Итого: мы перевели 1 гнома и потратили 5 минут.

Далее переводим ещё одного самого медленного гнома с самым быстрым, тратя ещё 5 минут.

И опять самого медленного с самым быстрым, ещё 5 минут.

Дальше уже идут довольно быстрые гномы переход на ту сторону займёт 2 минуты, а обратно 1 минуту.

Итого ещё +3 минуты.

Последний переход займёт 2 минуты так как нам не прийдется нести фонарик обратно.

Всего: 20 минут

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.