Найти наименьший элемент массива А(10). Правильно ли написана программа?

@dimonkost · Регистрация: 23.07.2014

Написал программку, нужно найти наименьший элемент массива А(10).
Кому не сложно, нужно проверить, и подсказать ошибки.

Fortran

program p1 
dimension a(10)
do i=1,10
read*,a(i)
end do
xmin=a(1)
do i=1,10
if (a(i).lt.xmin) then xmin=a(i)
end do
print*, 'min=', xmin 
stop
end

@Catstail · 21.08.2014, 10:31

Да, хотя один виток цикла можно сэкономить:

Fortran

1 2	xmin=a(1) do i=2,10

@WH · 10.09.2014, 19:13

А почему бы не использовать в коде встроенные средства фортрана. С помошью функции minval минимальное значение массива можно получить одной строчкой.

Fortran

program p1 
dimension a(10)
do i=1,10
read*,a(i)
end do
 
xmin=minval (a)    !Получение минимума
 
print*, 'min=', xmin 
end

@Catstail · 10.09.2014, 19:22

Учебные задачи учат алгоритмам, а не стандартным библиотекам.

@WH · 10.09.2014, 19:48

Да подумал, вдруг человек не знает. А так перед преподом знания покажет и виртуальный плюсик заработает

если представит 2 варианта. Препод мог и не рассказать о такой функции, я думаю.

@Catstail Модератор 36587 / 20317 / 4218 Регистрация: 12.02.2012 Сообщений: 33,614 Записей в блоге: 13
	10.09.2014, 19:22	4
	Учебные задачи учат алгоритмам, а не стандартным библиотекам. 0

@WH 1577 / 807 / 189 Регистрация: 10.09.2013 Сообщений: 3,197 Записей в блоге: 3
	10.09.2014, 19:48	5
	Да подумал, вдруг человек не знает. А так перед преподом знания покажет и виртуальный плюсик заработает если представит 2 варианта. Препод мог и не рассказать о такой функции, я думаю. 0

Опции темы

Решение