Поделитесь своими знаниями, ответьте на вопрос:
Дан целочисленный массив из 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.
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]);