Question

fortran字符数组完成字符串：字符串的排序，字符串中单词的统计，字符串的复制与连接运算

用fortran完成

Answer 1

program abc123implicit nonecharacter(len=10)::a(5)=(/"afdfdfsd","asfdsfgdg","gfgergdfd","fwegsddfd","fdsgergfs"/)  !需要提取字符串的数组character(len=2)::b(5)character(len=10)::xinteger::ido i=1,5x=a(i)b(i)=x(1:2)  !提取前两位end dodo i=1,5write(*,*)b(i)enddostopend

结果是