阅读以下FORTRAN程序：

INTEGER X(7)

DATA X/10,20,45,70,80,15,14/

M/X(l)

DO 10 1=2,7

IF(X(I).GIM)THEN

M=X(I)

K=1 END IF 10 CONTINUE

N=X(K)

X(K)=X(I)

X(I)=N

WRITE( *，100)(X(I)，I=1，7)

100 FORMAT(2X，713)

END 程序运行的结果是：

• A.10 20 45 70 80 15 14
• B.14 20 45 70 80 15 10
• C.80 20 45 70 10 15 14
• D.20 45 70 80 15 14 10

查看答案 纠错

答案： C

本题解析：

解利用DATA语句赋值，X(1)=10，X(2)=20，X(3)=45，X(4)=70，X(5)=80，X(6)=15，X(7)=14。

答案:C

更新时间：2021-10-08 05:10

包含此试题的试卷

• 2006环保工程师《公共基础考试》真题
• 2006年注册结构工程师《公共基础考试》真题
• 2006年基础知识（暖通空调+动力）真题
• 2006土木工程师（水利水电）公共基础真题
• 2006年公共基础知识（给排水）真题

你可能感兴趣的试题

单选题

• A.5.4
• B.5.6
• C.7.4
• D.7.6

查看答案

单选题

• A.F1
• B.F2
• C.F3
• D.F1、F2和F3

查看答案

单选题

• A.＜14%
• B.14%～15%
• C.15%～16%
• D.＞16%

查看答案

单选题

• A.5.67
• B.3.67
• C.4.55
• D.6.78

查看答案

单选题

• A.111001100.100011001
• B.111001100.10001101
• C.111001100.100011011
• D.111001100.10001111

查看答案

单选题

• A.356.123
• B.356.126
• C.353.126
• D.353.123

查看答案

单选题

• A.<img src='http://tp.mxqe.com/data/233/16867785_0_1.jpg' alt='注册环保工程师公共基础,章节练习,基础复习,公共基础强化' title='注册环保工程师公共基础,章节练习,基础复习,公共基础强化'>
• B.<img src='http://tp.mxqe.com/data/233/16867785_0_2.jpg' alt='注册环保工程师公共基础,章节练习,基础复习,公共基础强化' title='注册环保工程师公共基础,章节练习,基础复习,公共基础强化'>
• C.<img src='http://tp.mxqe.com/data/233/16867785_0_3.jpg' alt='注册环保工程师公共基础,章节练习,基础复习,公共基础强化' title='注册环保工程师公共基础,章节练习,基础复习,公共基础强化'>
• D.<img src='http://tp.mxqe.com/data/233/16867785_0_4.jpg' alt='注册环保工程师公共基础,章节练习,基础复习,公共基础强化' title='注册环保工程师公共基础,章节练习,基础复习,公共基础强化'>

查看答案

单选题

• A.5E5.19A
• B.5E5.195
• C.5D5.19A
• D.5D5.195

查看答案

单选题

• A.1101011000000.0110101
• B.1101011000000.01101111
• C.1101011000000.0110111
• D.1101011000000.01101101

查看答案

单选题

• A.0
• B.0.43
• C.0.75
• D.－0.86

查看答案