Код на паскале?
var i:integer; a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(20)+1;
if a[i] mod 3=0 then writeln(a[i]);
end;
readln;
end.

Паскаль АВС

Program  GreatWhite;
const
  n=50;
var
  mass: array [1..n] of integer;
  i: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Среди элементов массива программа находит числа, кратные 3');
  writeln('*** Вычисляю... ***');
  randomize;
  for i:=1 to n do begin
    mass[i]:=random(100)-50;
    if mass[i] mod 3=0 then writeln(mass[i]);
  end;
end.