Ответы на вопрос:
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
Популярно: Информатика
-
badurina92p0cc4901.06.2021 13:58
-
poprop34329.02.2020 22:15
-
vintrast109.04.2022 10:48
-
irina2004200512.03.2023 18:28
-
dianaaloyts09.06.2023 05:37
-
coolsceleton9807.11.2020 05:33
-
Irishka2k1725.09.2022 10:27
-
vankovvandam30.12.2020 05:07
-
Udjfjwojzksnsnsnslkm25.12.2022 00:50
-
igor228501.02.2023 20:33