Question

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

ент после замены.

Answer 1

Var 
 n,i,k,m:integer;
  x:real; 
 a:array[1..100]of real;
begin 
 //read(n); 
 n:=12;
  for i:=1 to n do 
   read(a[i]) ; 
 read(k,m); 
 x:=a[k]; 
 a[k]:=a[m]; 
 a[m]:=x; 
for i:=1 to n do   
 write(a[i]:1:6,' ');   
 readln;readln;
end.