daily pastebin goal
91%
SHARE
TWEET

Untitled

a guest May 17th, 2018 102 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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