Question

Дан целочисленный массив из 30 элементов. Элементы массива изначально могут принимать целые значения от 1 до 10000 включительно. Опишите алгоритм, который находит минимум среди элементов массива, а затем делит каждый элемент со значением кратным найденному минимуму. Гарантируется, что хотя бы один такой элемент есть в массиве. В качестве результата необходимо вывести измененный массив, каждый элемент выводится с новой строчки. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.
Написать фрагмент программы на месте многоточия.

Const
N:=30;
Var
a: array [1… N] of longint;
i, j, k: longint;
begin
for i:=1 to N do
readln ([a[i]);
…..
end.

Answer 1

k := a[1];

for i := 2 to N do

 if a[i] < k then

   k := a[i];

for i := 1 to N do

 if a[i] mod k = 0 then

   a[i] := a[i] div k;

for i := 1 to N do

 writeln(a[i]);