Без комментариев:
a = []
for x in range(1, 21):
a.append(int(input("Введите число " + str(x + 0) + ": ")))
b = 0
b = a[3]
a[3] = a[1]
a[1] = b
for x in range(0, 20):
print("Число", x + 1, "в массиве:", a[x])
С комментариями:
a = [] # Сначала мы создаем пустой массив
for x in range(1, 21): # и 20 раз (мы пишем 21 так как оно дойдет до числа не включая его)
# P. S. тут мы пишем не <<"Введите число", x..>>, а <<"Введите число" + str(x)..>>. Это потому что в отличии от функции print(), функция input() принимает только 1 аргумент, и нам придется использовать конкатенацию строк, но она сама не преоброзует число в строку, так что нам надо будет использовать функцию str() чтобы это сделать
a.append(int(input("Введите число " + str(x + 0) + ": "))) # спрашиваем у пользователя ввод числа и добавляем его в массив
b = 0 # затем мы создаем переменную b в которой будем хранить значение 4-ого элемента
b = a[3] # присваеваем переменной b значение 4-ого элемента
a[3] = a[1] # присваем значение 2-ого элемента 4-ому, пока что и 2-ой и 4-ый элемент имеют значение 2-ого элемента
a[1] = b # и теперь присваеваем второму элементу значение четвертого элемента
# P. P. S. Мы пишем не a[2] и a[4], а a[1] и a[3] потому, что элементы массива в большинстве языков программирования начинаются с нуля
for x in range(0, 20): # и теперь 20 раз (тут мы все-таки ставим от 0 до 20 (смотри P.P.S.) и добавляем 1 когда печатаем)
print("Число", x + 1, "в массиве:", a[x]) # мы выводим соответствующее число массива
1.
var
A: array [1..10] of integer;
max, i: integer;
begin
for i:=1 to 10 do // заполнение массива
A[i] := random(100) - 50;
max := -51;
for i:=1 to 10 do // обработка массива
if (A[i] < 0) and (A[i] > max) then
max := A[i];
writeln(max);
end.
2.
var
A: array [1..1000] of integer;
kol, i, N: integer;
begin
readln(N);
for i:=1 to N do // заполнение массива
A[i] := random(100) - 50;
for i:=1 to N do // обработка массива
if A[i] mod 2 = 0 then
inc(kol);
writeln(kol);
end.
А какое 3 слова?