// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,1,100); a.Println;
var k:=0;
for var i:=0 to 14 do
if a[i] mod 7=0 then begin
k+=1; WritelnFormat('A[{0}]={1}',i+1,a[i])
end;
if k=0 then Writeln('Заданных элементов в массиве нет')
end.
Пример
33 15 28 79 56 50 95 24 41 4 64 48 29 27 72
A[3]=28
A[5]=56