Задан массив из 12 вещественных чисел. Поменять местами два элемента массива, номера которых вводятся с клавиатуры. Вывести элемент после замены.

Program Task;

Const n = 12;

Var a: Array [1 ... n] of Real;

first, second, i: Integer;

tmp: Real;

Begin

WriteLn ('Введите ', n, ' элементов массива') ;

For i : = 1 To n Do

Read (a[i]) ;

WriteLn ('Введите номер первого элемента') ;

ReadLn (first) ;

WriteLn ('Введите номер второго элемента') ;

ReadLn (second) ;

tmp : = a[first];

a[first] : = a[second];

a[second] : = tmp;

WriteLn ('Результат:') ;

For i : = 1 To n Do

Write (a[i], ' ') ;

ReadLn;

End.