Определить, является ли заданная целая квадратная матрица 6-го порядка «магическим квадратом», то есть такой, в которой суммы всех элементов во всех строках и столбцах одинаковы. Язык: Fortran

import array

# creating array

a = array.array('i', [0, 0, 0, 0])

for i in range(3):

   print("Number", i,end= " ")

   a[i] = int(input())

_t = a[2]

a[2]=a[1]

a[1]=a[0]

a[0]=_t

print("Итог –",end= " ")

for i in range(3):

   print(a[i],end= " ")

Результат работы программы:

Number 0 235

Number 1 534

Number 2 346

Итог – 346 235 534

Объяснение:

Простой метод, но достаточно понятный

создаём и инициализируем массив нулями

Вводим числа от пользователя – вот это end= " " заставляет оставить курсор в той же строке.

Меняем местами

Выводим

Если массив будет больше 3, метод так себе.

1.

string = input().split(" ")

for i in string:

   if i[-1]=="я":

       print(i)

2.

massiv=list(map(int,input().split(" ")))

maxim=max(massiv)

for i in massiv:

   if i%2==1 and i<maxim:

       maxim=i

if max(massiv)%2==0 and maxim==max(massiv):

   print("Нету нечетных элементов")

else:

   print(maxim)

3.  

massiva=[input() for i in range(10)]

massivb=[input() for i in range(10)]

massiva,massivb=massivb,massiva

print(massiva,massivb)

4.

massiva=list(map(int,input().split(" ")))

massivb=list(map(int,input().split(" ")))

massivc=list(map(int,input().split(" ")))

print("Сумма 1 массива:",sum(massiva), "Среднее арифметическое:", sum(massiva)/len(massiva))

print("Сумма 2 массива:",sum(massivb), "Среднее арифметическое:", sum(massivb)/len(massivb))

print("Сумма 3 массива:",sum(massivc), "Среднее арифметическое:", sum(massivc)/len(massivc))