...

Question

=============================================================================================

---

Answer 1

// PascalABC.NET 3.2, сборка 1377 от 19.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger; // количество чисел в последовательности
  var s:=ReadArrInteger(n); // читаем последовательность
  if s.Any(x->x=1) then
  else begin
    foreach var m in s do
      if s.Where(x->(m>=x) and (m mod x =0)).Count=1 then Print(m);
    Writeln
    end
end.

Пример
6
10 5 3 15 6 8
5 3 8

Answer 2

#include

using namespace std;

int main() {
 int n;
 cin >> n;
 int a[n];
 for(int i = 0; i < n; i++)
   cin >> a[i];
 for(int i = 0; i < n; i++) {
   int flag = 1;
   for(int j = 0; j < n; j++)
      if(a[i] % a[j] != 0 && i != j) {
         flag = 0;
         break;
      }
   if(flag) cout << a[i] << ' ';<br>  }
}