Дан целочисленный массив из 30 элементов. Числа лежат в интервале от -500 до 500. Опишите на языке Паскаля алгоритм, который находит среднее арифметическое всех чисел, которые кратны первому элементу. Гарантируется, что первый элемент положительный.

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

program AverageMultipleOfFirstElement
va
arr: array[1..30] of integer
i, sum, count, average: integer
begi
sum := 0
count := 0
// Ввод массив
for i := 1 to 30 d
begi
write('Enter element ', i, ': ')
readln(arr[i])
end
// Нахождение среднего арифметического кратных первому элемент
for i := 2 to 30 d
begi
if arr[i] mod arr[1] = 0 the
begi
sum := sum + arr[i]
count := count + 1
end
end
if count <> 0 the
begi
average := sum div count
writeln('Average of elements that are multiples of the first element: ', average)
en
els
writeln('There are no elements that are multiples of the first element in the array.')
end.