MegoChelovek
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здрасте, у меня такая как бы проблема.......на Фортране я программирую буквально пару дней, нам по учёбе задали задачу : В заданном одномерном массиве найти :наибольший отрицательный и наименьший элементы.
Я написал код, тока вот компилятор мне ошибку выдает....пытался гуглить, нету такого, ну или я плохо искал.....если кто знает в чём ошибка напишите.....буду благодарен  )
Тут тока первая половина кода, вторую половину не стал писать ибо все равно ошибку выдает )
integer j, i, k
print*, ' vvedite razmer massiva '
read*, i
integer a (i)
print*, ' vvodite elementi massiva '
do j=1, i
read*, a(j)
end do
! находим первый отрицательный элемент массива
do j=1, i
if a(j)<0 then
k= a(j)
!end if
end do
! ищет набольший отрицательный элемент
do j=1, i-1
if ( a(j)<0 .and. a(j)>k ) then
k=a(j)
end if
end do
print*, ' набольший отрицательный элемент '
print*, k
end
|
