Создать массив из 10 чисел, каждое из которых не больше 28 найти номер первого элемента массива, делящегося на 7(паскаль)

Предыдущий
вопрос Следующий
вопрос

Для начала создадим массив из 10 чисел:

program FindIndexOfFirstElementDivisibleBy7
va
numbers: array[1..10] of Integer
i: Integer
begi
for i := 1 to 10 d
begi
numbers[i] := Random(28) + 1
Write(numbers[i], ' ')
end
Writeln
end.

Теперь найдем номер первого элемента массива, который делится на 7:

program FindIndexOfFirstElementDivisibleBy7
va
numbers: array[1..10] of Integer
i: Integer
begi
Randomize
for i := 1 to 10 d
begi
numbers[i] := Random(28) + 1
Write(numbers[i], ' ')
end
Writeln
for i := 1 to 10 d
begi
if numbers[i] mod 7 = 0 the
begi
Writeln('Index of first element divisible by 7: ', i)
break
end
end
end.

Теперь программа будет выводить массив из 10 чисел, каждое из которых не больше 28, а затем находить и выводить индекс первого элемента массива, который делится на 7.