Попробуйте примеры получения , передачи и использования информации живыми организмами
283
490
Ответы на вопрос:
program main integer i,j,k logical flag integer a,b dimension a(5,10) dimension b(50) equivalence (a,b) read *,(b(i),i=1,50) do 70 i=1,5 print *,(a(i,j),j=1,10) 70 continue do 100 j=10,1,-1 flag=.true. k=j do 200 i=1,5 if (a(i,j) .le. 0) then flag=.false. goto 100 end if 200 continue if (flag) goto 300 100 continue 300 print *,'k=',k end program main
Популярно: Информатика
-
berry9181909.10.2021 23:28
-
lopas1234123427.07.2021 05:53
-
илья2003210109.06.2020 21:35
-
Vanya215519.12.2022 17:57
-
Анналолкек30.10.2022 09:47
-
StasNiku05.03.2021 18:35
-
LizaKrem04.07.2022 06:45
-
Нафунька13.04.2020 11:44
-
ChristenChy18.06.2021 02:04
-
tamilazhakupova29.06.2021 02:46