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

+ 0 -

Laraa2

21 мая 2014 г., 12:57:23 (9 лет назад)

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.

+ 0 -

Pоlиna2003

21 мая 2014 г., 15:56:55 (9 лет назад)

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

#!/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 "\n@arr\n"

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