Дан одномерный целочисленный массив размерностью N. Сформировать новый массив из...

Question

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

Answer 1

Const n = 10;
var
b: array[1..n] of integer;
c: array[1..n] of integer;
i, a, k: integer;
begin
//считываем массив b
for i:=1 to n do
  readln(b[i]);
//вводим a
readln(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.

Comments

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

---

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