from random import randint
mass = [randint(-20, 10) for i in range(5)]
a = []
b = []
for i in range(5):
if mass[i] >= 0:
a.append(mass[i])
else:
b.append(mass[i])
print(f'Массив: {" ".join(str(s) for s in mass)}')
if len(a) != 0 and len(b) != 0:
print(f'Ср. ариф. элементов [{min(b)},{max(b)}]: {sum(b) / len(b)}')
print(f'Ср. ариф. элементов [{min(a)},{max(a)}]: {sum(a) / len(a)}')
if len(a) == 0:
print(f'Ср. ариф. элементов [{min(b)},{max(b)}]: {sum(b) / len(b)}')
print(f'Ср. ариф. элементов 0: 0')
if len(b) == 0:
print(f'Ср. ариф. элементов 0: 0')
print(f'Ср. ариф. элементов [{min(a)},{max(a)}]: {sum(a) / len(a)}')
Объяснение:
Program F90
integer i, j, k, s /0/, x/2/, y/6/, a(7, 7)
do k = 1, 4
do i = x - 1, y + 1
s = s + 1
a(x - 1, i) = s
end do
i = y + 1
do j = x, y + 1
s = s + 1
a(j, i) = s
end do
do i = y, x - 1, -1
s = s + 1
a(y + 1, i) = s
end do
i = x - 1
do j = y, x, -1
s = s + 1
a(j, i) = s
end do
x = x + 1
y = y - 1
end do
Print *, 'massive 15 = '
Write(*, '(7i5)') ((a(i, j), j=1, 7), i=1, 7)
End Program
![перевести код из паскаля в фортран f90 var i, j, k, s, x, y:integer; a:array[1..7,1..7] of integer;](/tpl/images/1609/3759/638ca.jpg)
