Задан массив из 12 вещественных чисел. Поменять местами два элемента массива, номера которых вводятся с клавиатуры. Вывести элемент после
5-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.
Например так:
#!/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"
Только по хорошему нужна проверка введенных значений еще.
Другие вопросы из категории
(Год - дог) пион. адрес, лапа, каприз, карета, ладошка, мошкара
Читайте также
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
Задан массив из N вещественных чисел,которые вводятся с клавиатуры. Отрицательные элементы уменьшить на 5, остальные заменить их номерами.
Задан массив из N вещественных чисел,которые вводятся с клавиатуры. Отрицательные элементы уменьшить на 5, остальные заменить их номерами.Я ввела эту задачу в паскале и у меня требует ввод данных, что мне писать
Напишите программу,определяющую,сколько в массиве чисел.