count = int(input('Введите кол-во элементов в массиве: '))
my_list = [int(input('Введите число: ')) for i in range(count)]
print(my_list)
max_num = max(my_list)
min_num = min(my_list)
my_list[my_list.index(max_num)], my_list[my_list.index(min_num)] \
= my_list[my_list.index(min_num)], my_list[my_list.index(max_num)]
Объяснение
В переменную count вводится, сколько чисел будет в списке
В my_list записываются все числа
Методы max, min узнают минимальный и максимальный элемент списка
Метод index узнаёт, на каких местах стоят эти элементы
В последней строке делаем обмен значениями переменных (a, b = b, a)
const
handsfree = false;
nmax = 10;
random_min = -50;
random_max = 50;
var
a: array[0..nmax] of real;
i, n: integer;
sum, x: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 0 to n do
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
else begin
readln(a[i]);
end;
writeln();
{подсчет суммы}
write('x = ');
readln(x);
sum := a[n];
for i := n - 1 downto 0 do
sum := sum * x + a[i];
writeln('S = ', sqrt(sum));
end.
count = int(input('Введите кол-во элементов в массиве: '))
my_list = [int(input('Введите число: ')) for i in range(count)]
print(my_list)
max_num = max(my_list)
min_num = min(my_list)
my_list[my_list.index(max_num)], my_list[my_list.index(min_num)] \
= my_list[my_list.index(min_num)], my_list[my_list.index(max_num)]
print(my_list)
Объяснение
В переменную count вводится, сколько чисел будет в списке
В my_list записываются все числа
Методы max, min узнают минимальный и максимальный элемент списка
Метод index узнаёт, на каких местах стоят эти элементы
В последней строке делаем обмен значениями переменных (a, b = b, a)
const
handsfree = false;
nmax = 10;
random_min = -50;
random_max = 50;
var
a: array[0..nmax] of real;
i, n: integer;
sum, x: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 0 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 0 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
write('x = ');
readln(x);
sum := a[n];
for i := n - 1 downto 0 do
sum := sum * x + a[i];
writeln('S = ', sqrt(sum));
end.