[Fortran] Сложные типы данных.Одномерные массивы.
Добавлено: 18 дек 2010, 15:49
Здравствуйте.Помогите мне плз с задачей.
Я составил,но вместо полож-ого числа выдает отрицательное.Уже пробовал но не могу исправить(
Условие.
Вводиться одномерный вещественный массив фиксированной длины,состоящий из N элементов(значение задается самостоятельно)Требуется:1)вывести исходный массив в строку.2)Заменить все отрицательные элементы массива на первый положительный элемент(напр. -1 2 6 -36 0 -4 9 -7 полож элемент здесь 6).Вывести измененный массив в том же виде что и исходный,но со следующей строки)
Я составил,но вместо полож-ого числа выдает отрицательное.Уже пробовал но не могу исправить(
Условие.
Вводиться одномерный вещественный массив фиксированной длины,состоящий из N элементов(значение задается самостоятельно)Требуется:1)вывести исходный массив в строку.2)Заменить все отрицательные элементы массива на первый положительный элемент(напр. -1 2 6 -36 0 -4 9 -7 полож элемент здесь 6).Вывести измененный массив в том же виде что и исходный,но со следующей строки)
Код: Выделить всё
Dimension (A10)
Real x,c
Read *,A(i)
Do i=n,1,-1
IF (A(i).LT.0) Then
c=A(i)
Stop
EndIf
Enddo
If (A(i).GT.0) Then
A(1)=a(i)
EndIf
Enddo
Print*,A(i)
End