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

August 2022 2 13 Report

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

preceptor 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.

1 votes Thanks 1

Megacoocker Например так:

#!/usr/bin/perl
for(1..12){@arr[$_]=int(rand(100))};
print "@arr\n";
print "Write first element:"; chomp($n1=<>);
print "Write second element:"; chomp($n2=<>);
(@arr[$n1], @arr[$n2])=(@arr[$n2], @arr[$n1]);
print "\[email protected]\n"

Только по хорошему нужна проверка введенных значений еще.

0 votes Thanks 1

Answers & Comments

zadan massiv iz 12 veshestvennyh chisel pomenyat mestami dva elementa massiva no

mozhno li bylo izbezhat 1 oj mirovoj vojny razvyornutyj otvet

chto za soedinenie pomogite reshit

kak iz nh4no3 poluchit nh3a zatem kak iz nh3 poluchit n2

1zadan massiv iz 11 celyh chisel najti summu elementov massiva kratnyh 5 2zad

massiv soderzhit znacheniya temperatury izmerennoj v 10 tochkah radiatora ohlazhdeni

zadan massiv iz 10 celyh chiselobmenyat znacheniyami tretij i predposlednij elemen

kak iz nh4cl poluchit nh4no3

mini sochinenie na temuv chyom schaste russkogo cheloveka

рекомендуемые вопросы

Helpful Links

Helpful Social