Задан массив из 12 вещественных чисел. Поменять местами два элемента массива, номера которых вводятся с клавиатуры. Вывести элемент после замены.
Задан массив из 12 вещественных чисел. Поменять местами два элемента массива, номера которых вводятся с клавиатуры. Вывести элемент после замены.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы