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

Question

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

Comments

Я не понял, почему дана ПОСЛЕДОВАТЕЛЬНОСТЬ, а выводить надо элементы МАССИВА?

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.

---

Comments

В задании написано не кратные 3,тоесть числа которые не делятся на 3.А числа 12 и 99 делятся на 3.

---

А блин увидел.