Нужный язык программирования не указан. Наверное, тебе подойдет Си :с
int n, tmp; // переменные для длины массива и временная
int count = 0; // переменная-счетчик для количества перестановок
scanf_s("%d", &n;) // считываем количество элементов в массиве
int arr[n]; // объявляем массив из n элементов
for (int i = 0; i < n; i++) { // формируем массив
scanf_s("%d", arr[i]);
}
for (int i = 0; i < n; i++) { // сравниваем два соседних элемента (j и j+1)
for (int j = 0; j < n - i - 1; j++) {
if (arr[j] > arr[j + 1]) { // свапаем элементы местами, если порядок неверный через временную переменную
tmp = arr[j];
arr[j] = arr[j + 1];
arr[j + 1] = tmp;
count++; // увеличиваем счетчик перестановок
}
}
}
ptintf("%d", count); //выводим количество перестановок
type
firma = record
fam:string;
adres:string;
end;
var
mas:array[1..8] of firma;
i,k:integer;
str:string;
begin
mas[1].fam:='Кузин';
mas[2].fam:='Куравлев';
mas[3].fam:='Кудин';
mas[4].fam:='Кульков';
mas[5].fam:='Кубиков';
mas[6].fam:='Иванов';
mas[7].fam:='Петров';
mas[8].fam:='Сидоров';
mas[1].adres:='ул.Мира,7';
mas[2].adres:='ул.Маркса,6';
mas[3].adres:='ул.Комсомольская,17';
mas[4].adres:='ул.Ленина,5';
mas[5].adres:='ул.Центральная,18';
mas[6].adres:='ул.Клубная,26';
mas[7].adres:='ул.Чехова,2';
mas[8].adres:='ул.Амосова,68';
write('Введите фамилию сотрудника -> ');readln(str);
k:=0;
for i:=1 to 8 do
begin
if str=mas[i].fam then
begin
k:=k+1;
writeln('фамилия - ',mas[i].fam);
writeln('адрес - ',mas[i].adres);
end;
end;
if k=0 then writeln('такого сотрудника нет!');
readln;
end.
Объяснение:
Это ответ на задание 2
Qiwi +79172489972
begin
var x := ReadReal('x =');
var s := 0.0;
var a := 1.0;
for var i := 1 to ReadInteger('n =') do
begin
a *= x / i;
s += a;
end;
writeln(s);
end.