1. Напишите наибольшее число x, для которого истинно высказывание: НЕ (x > 19) И НЕ (x чётное)
2. Напишите наибольшее число x, для которого истинно высказывание:
НЕ (x > 47) И НЕ (сумма цифр числа x больше 6)
3. Напишите наименьшее число x, для которого ложно высказывание:
НЕ (x ≥ 35) ИЛИ (x не делится на 16)
4. Напишите наименьшее число x, для которого истинно высказывание:
НЕ (x ≤ 53) И НЕ (x не делится на 53)​

//dev-c++ (c) #include < stdio.h> int main(void)   {const int n=10;   int ar[n],i;   i=0;   while(i< n)   {scanf("%d",& ar[i]);   i++; }   i=0;   while(i< n)   {if(ar[i]%2==0)printf("%d ",ar[i]);   i++; }   return 0; } //pascalabc.net 3.2 сборка 1318 const   n=10; var   ar: array[1..n] of integer;   i: integer; begin i: =1; while(i< =n) do   begin     readln(ar[i]);     i: =i+1;   end; i: =1; while(i< =n) do   begin     if ar[i] mod 2=0 then write(ar[i],' ');     i: =i+1;   end; end. пример ввода: 1 2 3 4 5 6 7 8 9 0 пример вывода: 2 4 6 8 0

//pascalabc.net 3.2 сборка 1318 var   n,i,j,c: integer;   ar: array of integer; begin   readln(n);   setlength(ar,n);   for i: =0 to n-1 do     readln(ar[i]);   for i: =0 to n-2 do     for j: =i+1 to n-1 do         if ar[i]< ar[j] then           begin             c: =ar[i];             ar[i]: =ar[j];             ar[j]: =c;           end;   writeln;   writeln('final array: ');   for i: =0 to n-1 do     write(ar[i]: 4); end. пример ввода: 5 2 4 6 1 2 пример вывода: final array:   6 4 2 2 1