Вопрос по информатике:
Задан массив из 12 вещественных чисел. Поменять местами два элемента массива, номера которых вводятся с клавиатуры. Вывести элемент после замены.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.03.2015 20:18
- Информатика
- remove_red_eye 6694
- thumb_up 24
Ответы и объяснения 2
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.
- 22.03.2015 21:28
- thumb_up 38
Например так:
#!/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"
Только по хорошему нужна проверка введенных значений еще.
- 23.03.2015 00:06
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.