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]);

Answer 2

Для решения этой задачи мы можем использовать следующий алгоритм:

1. Сначала найдем минимум среди элементов массива a.
2. Затем пройдемся по массиву a и для каждого элемента проверим, делится ли минимум на значение элемента без остатка. Если да, то поделим элемент на минимум и выведем результат.

Вот как это можно реализовать в вашем коде:

pascalCopy code
Const N := 30;
Var a: array [1… N] of longint;
    i, j, k, minElement: longint;

begin
  // Вводим элементы массива
  for i := 1 to N do
    readln(a[i]);

  // Находим минимум среди элементов массива
  minElement := a[1];
  for i := 2 to N do
  begin
    if a[i] < minElement then
      minElement := a[i];
  end;

  // Делим каждый элемент на минимум, если он кратен минимуму, и выводим результат
  for i := 1 to N do
  begin
    if a[i] mod minElement = 0 then
      writeln(a[i] div minElement)
    else
      writeln(a[i]);
  end;
end.

Этот код найдет минимум среди элементов массива и затем поделит каждый элемент на минимум, если он кратен минимуму, и выведет результаты на новых строках.