Костя Костюшко

НУЖНО ТОЛЬКО В ФОТРАНЕ
Одномерные массивы
Задачи этого раздела решить в двух вариантах. В первом- написать программу на языке бэйсик, а во втором – на языке фортран.
В обоих вариантах обязательно разработать подпрограмму общего типа, решающую поставленную задачу для произвольного исходного массива.
В вызывающей программой единице организовать чтение исходного массива с рабочего листа Excel (из текстового файла) и записать результирующего массива на рабочий лист (в текстовый файл)
Одномерный массив
Задача №1
Поменять местами первый и последний положительные элементы вектора <а>, после чего заменить его отрицательные элементы на квадрат их суммы.
Задача №2
В векторе а изменить знак первых его m элементов на противоположный, после чего поменять местами первый и третий положительный элементы вектора.
Задача № 3
Поменять местами два наименьших неравных положительных элемента вектора «а». Все отрицательные элементы вектора заменить на полусумму индексов его наибольшего положительного и отрицательного элемента
Двумерный массив
Задача №1
Даны 3 двумерных массива а,Ь и с. Если в каждом массиве есть положительный элемент, то образовать вектор d1 из четных положительный и вектор d2 из нечетных положительных элементов заданных массивов.
Задача №2
Из заданной матрицы d сформировать векторы a,b и c, поместив в массив a элементы, кратные р1, в массив b- элементы, кратные р3. Среди полученных массивов вывести массив с наименьшим числам элементов.
Задача № 3
Из заданной d сформировать векторы а,Ь,с ,поместив в массив а элементы, большие р1 и меньшие р2, в массив Ь-элементы,большие р2 и меньшие рЗ,а в массив с- элементы,большие рЗ и меньшие р4.Среди полученный х массивов вывести массив с наибольшим числом элементов.
fabio2000@rambler.ru или аська 247526765