Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1
Language: C/C++
Code:
#include <stdio.h>
dimension a(6,4)
write(*,*)'введите массив а(6,4)'
do i=1,6
read(*,*)(a(i,j),j=1,4)
end do
write(*,*)'matr a(6,4)'
do i=1,6
write(*,*)(a(i,j),j=1,4)
end do
p=1
do i=1,6
j=i
if (a(i,j).NE.0) THEN
p=p+a(i,j)
end do
write (*,*)'p=',p
end
Comments: