daily pastebin goal
44%
SHARE
TWEET

Untitled

a guest May 17th, 2018 101 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
Top