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

+ 0 -

Ewa2002

24 апр. 2016 г., 19:57:12 (8 лет назад)

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.

+ 0 -

ErjanMaulen

24 апр. 2016 г., 20:49:24 (8 лет назад)

CONST N=12;
var a:array[1..12] of integer;
n1,n2,i,tmp:integer;
begin
readln(n1,n2);
for i:=1 to N do 
begin
read(a[i]);
end;
tmp:=a[n1];
a[n1]:=a[n2];
a[n2]:=tmp;
for i:=1 to N do write(a[i]);
end.