program ArrayElements;
const
N = 20;
var
D: array[1..N] of integer;
count, i: integer;
begin
count := 0;
// Заполнение массива случайными числами от 0 до 750
Randomize;
for i := 1 to N do
begin
D[i] := Random(751);
if (D[i] > 500) and (D[i] mod 15 = 0) then
count := count + 1;
end;
// Вывод массива на экран
writeln('Массив D:');
for i := 1 to N do
write(D[i], ' ');
writeln;
writeln('Количество элементов массива больших 500, кратных 15: ', count);
end.

Программа создает одномерный массив D размером 20, заполняет его случайными числами от 0 до 750, и подсчитывает количество элементов массива, которые больше 500 и кратны 15. Результат выводится на экран.