Есть ответ 👍

Попробуйте примеры получения , передачи и использования информации живыми организмами

283
490
Посмотреть ответы 2

Ответы на вопрос:

mariaks16
4,4(73 оценок)

Жизненный опыт которого передает родитель ребенку      

    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

Популярно: Информатика