Задан массив из 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.