с написанием двух программ с массивами Заранее ответившим я крайне признателен.

C#:
{
double x = Convert.ToDouble(Console.ReadLine());
double y = Convert.ToDouble(Console.ReadLine());

if ( x > y)
{
x = x / 0,9;
}
else if (y > x)
{
y = y / 0,9;
}
else Console.WriteLine("Числа одинаковые \n");
 Console.WriteLine("x = {0}, y = {1}" , x, y);
}

надеюсь, что устроит
более-менее понятно, можно разобраться

на паскале:
begin
var x, y: double;
readln(x);
readln(y);

if x > y then
x := x div 0,9;
else if y > x then
y := y div 0,9;
else writeln("числа одинаковые");
writeln("x = ", x, "y = ", y);

на паскале мб чутка неверно написано

program sort_random_chislsa;

const n=15;

var i,j,x:integer;

a:array[1..n] of integer;

begin

for i:=1 to n do a[i]:=random(101)-50;

for i:=1 to n do write(a[i], ' ' );

writeln;

writeln('Вот и сортировка по возрастанию');

for i:=1 to n-1 do

for j:=i+1 to n do

if a[j]<a[i] then

begin

x:=a[i];

a[i]:=a[j];

a[j]:=x;

end;

for i:=1to n do write (a[i], ' ' );

writeln('Теперь сортируем это по убыванию');

for i:=1 to n do a[i]:=random(101)-50;

for i:=1 to n do write(a[i], ' ' );

writeln('Вот так');

for i:=1 to n-1 do

for j:=i+1 to n do

if a[j]>a[i] then

begin

x:=a[i];

a[i]:=a[j];

a[j]:=x;

end;

for i:=1to n do write (a[i], ' ' );

end.