Дан одномерный целочисленный массив размерностью N. Сформировать новый массив из элементов исходного, кратных заданному числу а и больших по модулю их
индекса. Если такие элементы отсутствуют, то выдать об этом сообщение. паскаль

а если нет таких элементов? Задачка не до конца решена

упс, сейчас поправлю

const n = 10;varb: array[1..n] of integer;c: array[1..n] of integer;i, a, k: integer;begin//считываем массив bfor i:=1 to n do  readln(b[i]);//вводим areadln(a);k:=0;for i:=1 to n do//если элемент кратен А и по модулю больше I то  if (b[i] mod a = 0) and (abs(b[i]) > i) then  begin//увеличиваем k на 1 и присваиваем c[k] a[i]  inc(k);  c[k] := b[i];  end;if k = 0 then  writeln('Таких элементов нет')else  for i:=1 to k do    writeln(c[k]);end.