Сна pascal. массивы. дана последовательность действительных чисел. поменяйте местами первый наибольший элемент с последним наименьшим элементом

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

begin
  var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
  a.Println;
  var (imax,imin):=(a.IndexMax,a.LastIndexMin);
  Swap(a[imin],a[imax]); a.Println
end.

Пример
n= 15
-4.3 -5.6 7.2 -5.3 -7.7 9.3 1.4 0.3 -4.7 6.3 5.7 7.5 -8.6 6.9 -2.5
-4.3 -5.6 7.2 -5.3 -7.7 -8.6 1.4 0.3 -4.7 6.3 5.7 7.5 9.3 6.9 -2.5

Программа:
С#:

using System;

class HelloWorld {

 static void Main() {

   Console.Write("x = ");

   double x = Convert.ToDouble(Console.ReadLine());

   

   Console.Write("y = ");

   double y = Convert.ToDouble(Console.ReadLine());

   

   double HalfCount = (x + y) / 2;

   double DoubleProduct = 2 * x * y;

   

   if (x < y) {

       x = HalfCount;

       y = DoubleProduct;

   } else {

       y = HalfCount;

       x = DoubleProduct;

   }

   

   Console.WriteLine($"x = {x}; y = {y}");

 }

}

В начале вводим значения переменных x, y (типа double (float), действительные числа). Отдельными переменными находим половину суммы и удвоенное произведение введённых чисел. Находим меньшее число и присваиваем значения согласно условию. В конце - выводим результат.

Вот примерный план:

1. Память компьютера, технические данные. Марка, производитель. Возраст: сколько лет ты пользуешься компьютером.

2. Внешний вид, комплектация (сколько места занимает, какие режимы имеет), ну и стандартное: цвет, размер экрана (можно в дюймах), камера -  сколько мегапикселей.

3. Приложения и программы, установленные на компьютере (конечно, про амонг, танки и т.п. писать не надо)

4. Итог: удобно ли тебе пользоваться компьютером, соответствует ли он твоим требованиям и всё ли тебя в нём устраивает.

Всё)