Вмассив p записать сначала отрицательные элементы массива x(k), затем положительные. данные для ввода: k=6, x(3; 0; -2; 2; 4; -3

Var
   X,P:array[1..100] of integer;
   k,n:integer;
Begin
Write('Введите k: ');ReadLn(k);
Write('Введите массив X(',k,'): ');
For k:= 1 to k do
    Read(X[k]);
Write('Массив P:');
n:=0;
For k:= 1 to k do
    if X[k]<0 then
       Begin
       n:=n+1;
       P[n]:=X[k];
       End;
For k:= 1 to k do
    if X[k]=0 then
       Begin
       n:=n+1;
       P[n]:=X[k];
       End;
For k:= 1 to k do
    if X[k]>0 then
       Begin
       n:=n+1;
       P[n]:=X[k];
       End;
For k:= 1 to k do
    Write(' ',P[k])
End.

Пример:

Введите k: 6
Введите массив X(6):3 0 -2 2 4 -3
Массив P: -2 -3 0 3 2 4

//Как я понял, нули переносить не требуется
//PascalABC.Net 3.2 сборка 1318

begin
  var x:=ReadArrInteger(ReadInteger()).Where(y -> y<>0).Sorted.Print;
end.

У меня 7 числа день рождения - информация понятная, актуальная если 7 число не наступило, и неактуально если полезная если я это говорю своему другу, и бесполезна если говорю мимо идущему прохожему которого вижу впервые, достоверная если я сказал правду, и недостоверная если солгал, полная если этого достаточно чтобы понять когда я родился(говорили про текущий месяц), и неполная если я просто так заикнулся не уточнив месяц, понятная если сказал на русском рускоязычному человек, непонятная если я сказал по русски тому кто русский не понимает(иностранцу к примеру). если смысл понятен то можно придумать много таких вариантов даже из одного примера, в принципе можно и на каждый случай отдельные приводить

Pascal:
var n,m:longint;
      f:boolean;
begin
  write ('Decimal: ');
  readln(n);
  write ('Number: ');
  readln (m);
  f:=true;
  while (n<>0) do
  begin
    if ((n mod 10)=m) then
      begin
       f:=true;
       break;
      end;
    n:=n div 10;
  end;
  if f then writeln ('YES!') else writeln ('NO');
  readln;
end.

C++:
#include <iostream>
using namespace std;

int main()
{
  int n,m;
  bool f = false;
  cout <<"Decimal: ";
  cin >>n;
  cout <<"Number: ";
  cin >>m;
  while (n!=0)
  {
    if ((n%10)==m)
    {
      f = true;
      break;
    }
    n/=10;
  }
  if (f)
    cout <<"YES!" <<endl;
  else cout <<"NO!" <<endl;
  return 0;
}