Найти произведение элементов, кратных 3 - Turbo Pascal

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

В заданном одномерном массиве, состоящем их n целых чисел. Найти произведение элементов, кратных 3.

Решение задачи: «Найти произведение элементов, кратных 3»

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

var i,j,n:integer;
A:array of integer;
begin
randomize;
writeln('n=');
read(n);
A:=new integer[n+1];
for i:=1 to n do begin
A[i]:=random(20)+1;
write(A[i],' ');
end;
writeln;
for i:=1 to n do
for j:=i+1 to n do begin
if (((A[i]*A[j]) mod 3)=0) then writeln(A[i],'*',A[j],' = ',A[i]*A[j],' kratno 3');
end;
readln
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач различных уровней сложности.

Переменные i, j и n объявлены как целочисленные типы данных.
Создается массив A типа integer с размером n+1, который будет использоваться для хранения чисел.
С помощью функции randomize и read(n) считывается значение переменной n.
Создается массив A с помощью оператора new.
Заполняется массив A случайными числами от 1 до 20 с помощью цикла for.
Выводится сообщение с номером текущей итерации цикла.
Используется вложенный цикл for для проверки произведения двух чисел на кратность числа 3.
Если произведение чисел кратно 3, то выводится сообщение с произведением чисел.
Программа завершается с помощью функции readln.