Задача по Fortran 77

[Cobert]

Здравствуйте. Мне нужно написать небольшую програмку на Fortran 77, но я совершенно не представляю, как это сделать, не смотря на то, что все нужные операторы я знаю. Помогите пожалуйста.

Запросить ввод и ввести K<20 целых чисел $a_1,... ,a_k$. Предварительно должно быть запрошено и введено текущее значение элементов K. Обеспечить контрольный вывод введенного вектора. Оставить в последовательноститолько элементы с нечетными значениями, вывести преобразованную последовательность; подсчитать и вывести сумму элементов с четными значениями.

[Cobert]

Вообще, блин, ни одного героя! . Хоть чем нибудь бы помогли.

Я вот все думал, думал... потом спросил у однокурсника: он подал хорошую идею.

[нг]

нг:

Cobert: замечание за подъем темы (правила I.1.м).

Добавлю, что, по-видимому, Ваша задача никого не заинтересовала. Непонятно, что Вам не понятно (вроде все тривиально), писать программу за Вас — глупо (и никому не нужно). Может быть, если бы Вы поставили вопрос по-другому (например, опубликовав свой вариант решения), Вы бы получили больший отклик.

[Cobert]

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

Вот мой вариант:

_______PROGRAM EX22
_______DIMENSION J(19)
_______INTEGER S,A,B
_______S=0
_______WRITE(*,7)
_____7_FORMAT(10X,'ENTER QUANTITY OF ELEMENTS OF THE FILE LESS THAN 20')
_______READ(*,*)A
_______IF (A.GE.20) THEN
_______WRITE(*,9)
_____9_FORMAT(10X,'THE SET QUANTITY OF ELEMENTS OF THE FILE DOES' 
______&'NOT SATISFY TO THE CONDITION OF THE PROBLEM')
_______STOP
_______ENDIF
_______WRITE(*,1)
_____1_FORMAT (10X,'INPUT WHOLES NUMBERS')
_______DO 10 N=1,A
_______READ(*,*)J(N)
___10__CONTINUE
_______WRITE(*,2)
____2_ FORMAT (10X,'CONTROL CONCLUSION OF THE ENTERED VECTOR')
_______WRITE(*,*)J
_______WRITE(*,4)
_______DO 3 I=1,A
_______M=(J(I)/2)*2
_______IF (M.NE.J(I)) THEN
_______M=J(I)
_______ELSEIF (M.EQ.J(I)) THEN
_______M=0
_______ENDIF
_______WRITE(*,*)M
____3__CONTINUE
____4__FORMAT(10X,'CONCLUSION OF ODD VALUES')
_______WRITE(*,5)
____5__FORMAT (10X,'THE SUM OF ELEMENTS WITH ODD VALUES')
_______DO 6 I=1,A
_______L=(J(I)/2)*2
_______IF (L.EQ.J(I)) THEN
_______L=J(I)
_______ELSEIF (L.NE.J(I)) THEN
_______L=0
_______ENDIF
_______S=S+L
____6__CONTINUE
_______WRITE(*,*)S
_______END

Добавлено спустя 54 минуты 3 секунды:

И еще. У меня вопросик. Fortran 2003 вышел? Его можно скачать? А то меня немного бросает в сомнения, что версия 77 является достаточным аргументом для свободного программирования в наше время.

[sexstant]

Интересно, а в каком учебном заведение требуют Fortran ?

[VLarin]

sexstant писал(а):

Интересно, а в каком учебном заведение требуют Fortran ?

Например в МЭИ информатика на 1 курсе - Fortran 77:))
Курсовой проект - создание примитивной базы данных, работа с файлами, добавление-удаление записей, бинарный поиск + сортировка Шелла. Актуальность и значимость такого курса не обсуждается:)
Или программы по графам, теорию которых преподают в таком виде, что...