Дан целочисленный массив из 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.
Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.
Написать фрагмент программы на месте многоточия.
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.
More Questions From This User See All
Answers & Comments
Ответ:
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]);