Массив состоит из 20 элементов. элементы могут принимать целые значения от -10000 до 10000 включительно. - id557822520220204 от azarovandrey123 04.02.2022 11:32

Question

Информатика: Массив состоит из 20 элементов. элементы могут принимать целые значения от -10000 до 10000 включительно. напишите алгоритм, позволяющий найти и вывести минимальный элемент массива, которые не делится на 11. наличие хотя бы одного такого элемента гарантируется. pascal

azarovandrey123 · Accepted Answer

Вот жутко неэффективное решение, для нормального надо писать решето эратосфена, можно нагуглить, если нужна эффективность function isPrime (a : integer) : boolean; var   i, lim : integer; begin   if n 4 then begin   if n = 1 then isPrime := false else isPrime := true;  exit;  end;   lim := trunc (sqrt (a));   for i := 2 to lim do     if a mod i = 0 then     begin       isPrime := false;       exit;     end; isPrime := true; end; var   a : array of array of integer;   b : array of integer;   i, j,...

MOGZ ответил