Дан массив целых чисел. Вывести индексы тех элементов, значения которых кратны 3 и 5 - Pascal ABC

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

1)Дан массив целых чисел. Вывести индексы тех элементов, значения которых кратны 3 и 5 2)Определить, есть ли пара соседних элементов с суммой, равной заданному числу А Народ только сказали, чтобы массив автоматически выводился и желательно проверьте сами.. а то я вообще не понимаю в этом..

ну помогите народ оч срочно надо..

Решение задачи: «Дан массив целых чисел. Вывести индексы тех элементов, значения которых кратны 3 и 5»

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

uses crt;
 type
 mas=array[1..3,1..5] of integer;
var
 i,j:integer;
 x:mas;
 k,l:integer;
begin
clrscr;
for i:= 1 to 3 do
begin
for j:=1 to 5 do
begin
 x[i,j]:=random(20);
 write(x[i,j]:4);
end;
writeln;
end;
k:=1;
l:=1;
for i:= 1 to 3 do
begin
for j:=1 to 5 do
if x[i,j] mod 3=0  then
begin
 k:=i;
 l:=j;
 writeln('ГЉГ°Г*ГІГ*Г®ГҐ 3-Г¬[',k,',',l,']');
end;
end;
for i:= 1 to 3 do
for j:=1 to 5 do
if x[i,j] mod 5=0  then
begin
 k:=i;
 l:=j;
 writeln('ГЉГ°Г*ГІГ*Г®ГҐ 5-ГЁ[',k,',',l,']');
end;
end.

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

В данном коде используется язык программирования Pascal ABC. Задача заключается в том, чтобы вывести индексы тех элементов массива, значения которых кратны 3 и 5. Для решения этой задачи используется два вложенных цикла. Первый цикл проходит по строкам массива, а второй - по столбцам. Внутри циклов происходит проверка условия: если значение элемента кратно 3 или 5, то сохраняются индексы строки и столбца этого элемента. После завершения циклов происходит вывод найденных индексов. В коде также используется функция random(20), которая генерирует случайное число от 0 до 19 (включительно). Это позволяет задавать разные значения для элементов массива. Код начинается с инициализации переменной x массивом целых чисел размером 3 на 5. Затем происходит вывод значений элементов этого массива с помощью функции write. Далее следуют два вложенных цикла, которые были описаны выше. После их завершения происходит вывод найденных индексов. В конце кода объявляются две переменные k и l, которые будут использоваться для вывода найденных индексов. Наконец, происходит вывод найденных индексов с помощью функции write.