daily pastebin goal
27%
SHARE
TWEET

Untitled

a guest May 17th, 2018 103 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  1.        Program prg
  2.        integer massiv(5,5)
  3.        integer i, j
  4.        integer sum
  5.        !Вбивать данные нужно в формате "4 2 5 2 5", затем нажать enter и писать следующую строку и т.д.
  6.        print*,'Vvedite massiv 5x5'
  7.        do i =1, 5
  8.           read*, massiv(i, :)
  9.        enddo
  10.        
  11.        sum = 0
  12.        do i = 1, 5
  13.           print*,massiv(i,:)
  14.           do j = 1, 5
  15.              if(i.GE.j) then
  16.                 sum = sum + massiv(i, j)
  17.              endif
  18.           enddo
  19.        enddo
  20.        
  21.        print*, 'Summa = ', sum
  22.        end
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top