Question

Сформировать массив из 20 вещественных чисел и поменять местами 5 и 10 элемент.

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := SeqRandomReal(20, -99, 99)

     .Select(t -> Round(t, 1)).ToArray;

 a.Println;

 Swap(a[4], a[9]);

 a.Println

end.

Answer 2

Решите пожалуйста для более старой версии

Answer 3

Назовите причину, по которой я должен делать двойную работу.

Answer 4

Это первое. И второе - что за "более старая версия": Та, что была месяц назад? Три месяца? Год? Два? 5 лет? Десять?

Answer 5

Более сарая версия два года

Answer 6

Два года? В ней тоже должно идти. В любом варианте у меня ее нет.