Дан целочисленный массив из 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.

MashaVonlaar    1   04.08.2020 23:24    9