Question

Дана последовательность действительных чисел а1,а2,...,аn . Вывести на печать элементы массива не кратные 3.

Answer 1

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:array of real;
  a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
  a.Where(t->Trunc(t) mod 3 <>0).Println
end.

Answer 2

Для решения задачи можно использовать цикл for для перебора всех элементов массива и условный оператор if для проверки, является ли текущий элемент кратным 3. Если элемент не кратен 3, выводим его на печать с помощью функции print(). Вот пример кода на языке Python:

cssCopy code
a = [1, 2, 3, 4, 5, 6, 7, 8, 9]

for elem in a:
    if elem % 3 != 0:
        print(elem)

В этом примере мы создали массив a, содержащий 9 элементов. Затем мы перебираем все элементы массива с помощью цикла for и проверяем, кратен ли текущий элемент 3 с помощью оператора %. Если элемент не кратен 3, выводим его на печать с помощью функции print(). Результатом выполнения программы будут числа 1, 2, 4, 5, 7, 8 – все элементы массива, которые не кратны 3.