Изучите фрагмент программого код? Напишите комментарий к каждому выделенному фрагменту программы.
1)n=input("Количество элементов? ")
massiv=[0]*n
for i in range(n):
massiv=int(input())
print ("Исходный массив: ", massiv)

2)b=massiv[0]
massiv[0]=massiv[n-1]
massiv[n-1]=b
print ("Итоговый массив: ",massiv)

Если какие-нибудь две прямые пересечены третьей прямой, то пересекающая их прямая называется секущей по отношению к прямым, которые она пересекает.

При пересечении двух прямых третьей, образуется два вида углов: внешние и внутренние.

внутренние и внешние углы при двух пересечённых прямых

На рисунке изображены две прямые a и b, пересекаемые прямой c. Прямая c по отношению к прямым a и b является секущей. Синим цветом на рисунке обозначены внешние углы (∠1, ∠2, ∠7 и ∠8), а красным — внутренние углы (∠3, ∠4, ∠5 и ∠6).

Также при пересечении двух прямых третьей, образовавшиеся углы получают попарно следующие названия:

Соответственные углы: ∠1 и ∠5, ∠3 и ∠7, ∠2 и ∠6, ∠4 и ∠8. Соответственные углы

Внутренние накрест лежащие углы: ∠3 и ∠6, ∠4 и ∠5. Внутренние накрест лежащие углы

Внешние накрест лежащие углы: ∠1 и ∠8, ∠2 и ∠7. Внешние накрест лежащие углы

Внутренние односторонние углы: ∠3 и ∠5, ∠4 и ∠6. Внутренние односторонние углы

Внешние односторонние углы: ∠1 и ∠7, ∠2 и ∠8. Внешние односторонние углы

Углы при пересечении параллельных прямых

Если секущая пересекает две параллельные прямые линии, то:

внутренние накрест лежащие углы равны;

сумма внутренних односторонних углов равна 180°;

соответственные углы равны;

внешние накрест лежащие углы равны;

сумма внешних односторонних углов равна 180°.

Углы при пересечении параллельных прямых

1)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i+j>5) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

2)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i>J) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.