سلام
خدا فوت
من این ترم برنامه نویسی دارم به زبان فرترن
دیگه نزدیک امتحان هست و ما شرمنده ی شما :(
اگه کسی میتونه جوابم رو بده ممنون میشم

ارور های این برنامه چیه ؟


integer n
Read*, n
integer, dimension(1:n) :: K
(Read(1,*) (K(i) ,i=1,n
(M = max(K
print*, M
End

1.jpg