Top.Mail.Ru
Ответы

Помогите пожалуйста!!! на фортране

Сложные типы данных.
Одномерные массивы (вектора).

Вводится одномерный вещественный массив фиксированной длины, состоящий из «N» элементов (конкретное значение N для каждого студента индивидуально задается преподавателем). Требуется: 1) Вывести исходный массив в строку (например, 23.5 45.1 и т. д.). 2) Если количество элементов нечетное, тогда поменять максимальный элемент со средним элементом. Вывести измененный массив в том же виде что и исходный, но со следующей строки.

Задание 4 Тема: Сложные типы данных.
Многомерные массивы.

Назовем элемент матрицы седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или, наоборот, наибольшим в своей строке и наименьшим в своем столбце. Для заданной целой матрицы 6х7 вывести на экран дисплея индексы всех ее седловых точек.

По дате
По рейтингу
Аватар пользователя
Новичок
8лет

integer, parameter::N=5
real a(N)
read (*,*) a
print *,a
if (mod(N,2)/=0) then
r_max=maxval(a)
for i=1,N
if (a(i)==r_max) exit
enddo
a(i)=a(N/2+1)
a(N/2+1)=r_max
endif
print *,a
end