Satiata
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ну сорри туплю..прост завтра лаба а сделать не знаю как)
Добавлено:
Program lab
Implicit none
Integer a(100),n,i
Write (*,*)'Vvedite kol-vo elementov massiva (n<100)'
Read (*,*) n
Do i=1,n
write (*,*) 'Vvedite chislo[',i,']'
read (*,*) a(i)
if (mod(i,2)/=i) then
a(i)=a(i)*2
end if
end do
write (*,*) 'noviy massiv'
write (*,*) a(i)
end
выдает в ответе 0
почему?
Добавлено:
Program lab4
Implicit none
Integer a(100),n,i
Write (*,*)'Vvedite kol-vo elementov massiva (n<100)'
Read (*,*) n
Do i=1,n
write (*,*) 'Vvedite chislo[',i,']'
read (*,*) a(i)
if (mod(i,2)/=i) then
a(i)=a(i)*2
end if
end do
write (*,*) 'noviy massiv'
do i=1,n
write (*,*) a(i)
end do
end
исправил но почему умножает все числа хотя должно только нечетные?
Добавлено:
всё сорри исправил додумался хД |
.