Задан массив из 12 вещественных чисел. Поменять местами два элемента массива, номера которых вводятся с клавиатуры. Вывести элемент после
5-9 класс
|
замены.
program x;
const n = 12;
var a: array [1..n] of integer;
a1,a2,i,k: integer;
begin
for i:=1 to n do
read(a[i]);
readln(a1); readln(a2);
k:= a[a2];
a[a2]:=a[a1];
a[a1]:=k;
for i:=1 to n do
write(a[i]:4);
end.
#include <iostream>
#include <time.h>
void main ()
{
srand (unsigned( time (0)));
setlocale (LC_ALL, "russian");
float fArray[12], temp;
int Arr_1, Arr_2;
std::cout.setf (std::ios_base::fixed, std::ios_base::floatfield);
std::cout.precision (4);
std::cout << "Исходный массив:\n";
for (int i = 0; i < 12; i++) {
fArray[i] = (float) (rand () % 100) / (float) (rand () % 100);
std::cout << i+1 << " - \t" << fArray[i] << std::endl;
}
std::cout << "Введите 2 элемента массива через пробел\n";
std::cin >> Arr_1 >> Arr_2;
temp = fArray[Arr_1 - 1];
fArray[Arr_1 - 1] = fArray[Arr_2 - 1];
fArray[Arr_2 - 1] = temp;
std::cout << "Результирующий массив:\n";
for (int i = 0; i < 12; i++) {
std::cout << i + 1 << " - \t" << fArray[i] << std::endl;
}
system ("pause");
};
Другие вопросы из категории
компьютер про-изводит диагностику неисправности и сообщает пилоту о необходимых действиях. Для решения этой задачи ему нужно выполнить 10 в 8 вычислительных операций. Быстродействие компьютера – 1 млн. операций в секунду. Успеет ли лётчик спасти самолёт, если минимальная высота, на которой самолёт можно вывести из пике – 2000 метров?
6)муляж яблока 7)манекен 8)схема метро. Подскажите пожалуйста!
Читайте также
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
Задан массив из N вещественных чисел,которые вводятся с клавиатуры. Отрицательные элементы уменьшить на 5, остальные заменить их номерами.
Задан массив из N вещественных чисел,которые вводятся с клавиатуры. Отрицательные элементы уменьшить на 5, остальные заменить их номерами.Я ввела эту задачу в паскале и у меня требует ввод данных, что мне писать