//Для проверки результата вывел массив на экран
using System;
namespace App1
{
class Program
{
private static void Main()
{
const int x = -10;
const int y = 20;
int n, k;
Console.Write("Enter n: "); n = int.Parse(Console.ReadLine());
Console.Write("Enter k: "); k = int.Parse(Console.ReadLine());
Console.WriteLine($"{Environment.NewLine}Array:");
int counter = 0;
int[] array = new int[n];
Random rand = new Random();
for (int i = 0; i < array.Length; i++)
{
array[i] = rand.Next(x, y + 1);
if (array[i] > 0 && array[i] % k == 0) { counter++; }
Console.WriteLine($"{i + 1}. {array[i]}");
}
Console.Write(Environment.NewLine);
if (counter > 0) { Console.WriteLine($"В массиве {counter} элементов, соответствующих заданному условию."); }
else { Console.WriteLine("В массиве нет элементов, соответствующих заданному условию."); }
Console.ReadKey();
}
}
}
var a,b,c,x,kc,kn,k1,k2:integer;
begin
kc:=1;
kn:=1;
k1:=0;
k2:=0;
a:=0;
b:=0;
writeln('Введите число x');
read(x);
while x>0 do begin
c:=x mod 10;
if c mod 2=0 then begin
inc(k1);
a:=a+c*kc;
kc:=kc*10;
end;
if c mod 2<>0 then begin
inc(k2);
b:=b+c*kn;
kn:=kn*10;
end;
x:=x div 10;
end;
if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных');
writeln(a,' ', b);
end.