В данном одномерном массиве найдите произведение сумм предпоследних цифр пар различных чисел - Turbo Pascal

Формулировка задачи:

1)В данном одномерном массиве найдите произведение сумм предпоследних цифр пар различных чисел, сумма(самих чисел) в которых делится на 10.

Решение задачи: «В данном одномерном массиве найдите произведение сумм предпоследних цифр пар различных чисел»

Листинг программы

const n=7;
type mas=array[1..n] of integer;
var a:mas;
    i,j:integer;p:real;
    f:boolean;
 begin
  for i:=1 to n do 
   begin
    a[i]:=10+random(990);
    write(a[i],' ')
   end;
  writeln;
  p:=1;f:=false;
  for i:=1 to n do
   for j:=i to n do
    if (a[i]<>a[j])and((a[i]+a[j]) mod 10 =0)
     then 
      begin
       write('a[',i,'] = ',a[i],' и ','a[',j,'] = ',a[j]);
       writeln(' сумма предпоследних = ',a[i] div 10 mod 10 + a[j] div 10 mod 10);
       f:=true;
       p:=p*(a[i] div 10 mod 10 + a[j] div 10 mod 10)
      end; 
  if f then writeln('произведение = ',p:0:0)
       else writeln('нет таких пар');
  readln     
end.

Объяснение кода листинга программы

Данный код написан на языке Turbo Pascal и предназначен для поиска произведения сумм предпоследних цифр пар различных чисел в одномерном массиве. В начале кода объявляются необходимые переменные: n - количество элементов в массиве, mas - тип массива, a - имя массива, i, j - переменные для циклов, p - переменная для хранения произведения, f - флаг, указывающий наличие пар с одинаковыми суммами предпоследних цифр. Далее идет внешний цикл, который проходит по каждому элементу массива. Внутри этого цикла происходит заполнение массива случайными числами от 10 до 990. Затем начинается внутренний цикл, который проходит по всем парам элементов массива, начиная с i-го и заканчивая n-м элементом. Если элементы разные и их сумма предпоследних цифр равна 0 (mod 10), то выводится информация о паре и ее сумме, а также обновляется значение переменной f и вычисляется произведение. После завершения внутреннего цикла проверяется значение переменной f. Если оно равно true, то выводится произведение. В противном случае выводится сообщение о том, что таких пар нет. Наконец, код завершается вызовом функции readln, чтобы прочитать ввод пользователя.