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

1

Ответы и объяснения

2013-11-24T15:58:31+00:00
Uses crt;
const n=12;
var a:array[1..n] of real;
i,b,c:integer;
begin
for i:=1 to n do
readln(a[i]);
readln(b);
readln(c);
a[b]:=a[b]+a[c];
a[c]:=a[b]-a[c];
a[b]:=a[b]-a[c];
for i:=1 to n do
writeln(a[i]);
end.