Дайте решение. к данному массиву был применен следующий алгоритм: ​

14.9 (равнобедренные трапеции (с комментариями)):

#S=1/2h(a+b)

print ('Введите первое основание для первой трапеции')

af=int(input()) # Первое основание первой

print('Введите второе основание для первой трапеции')

bf=int(input()) # Второе основание первой

print('Введите высоту для первой трапеции')

hf=int(input()) # Высота первой

print ('Введите первое основание для второй трапеции')

aas=int(input()) # Первое основание второй

print ('Введите второе основание для второй трапеции')

bs=int(input()) # Второе основание второй

print ('Введите высоту для второй трапеции')

hs=int(input()) # Высота второй

pf=(af+bf)+af-bf)/2)**2+hf**2)**0.5)*2 #Периметр первой

ps=(aas+bs)+aas-bs)/2)**2+hs**2)**0.5)*2 #Периметр второй

sf=(af+bf)*hf/2 # Площадь первой

ss=(aas+bs)*hs/2 #Площадь второй

print ('Сумма периметров=', pf+ps)

print ('Сумма площадей=', sf+ss)

14.23 (Трехзначные простые числа):

for a in range (100,1000):

   b=0

   for i in range (2,a):

       if a%i==0:

           b+=1

   if b==0:

       print(a)

P.S: Вставлено из среды разработки, проверку на компиляторе программы

PROGRAM MatrixMax
var a : array [1..3, 1..4] of integer
b : array [1..3] of integer
Max, i, j : integer
BEGIN
crt;
for i:=1 to 3 do 
begin
for j:=1 to 4 do
begin
read (a[i, j]); // вводим элементы в массив a[1..3, 1..4]
end;
writeln; // делаем пустой перевод строки
end;
for i:=1 to 3 do 
begin
b[i] := a[i, 1];
for j:=1 to 4 do
begin
if a[i, j] > b[i] then b[i] := a[i, j];
// находим максимальный элемент в каждой строке и записываем в b[1..3]
end;
end;
Max := b[1];
for i:=1 to 3 do if b[i] > Max then Max := b[i];
// Находим максимальный элемент из максимальных элементов
writeln (Max); // Выводим его на экран
END.