Различия между изменённой записью 2916 оставленной Sanya 25.03.2017 в 16:53 и
оригинальной записью 2915 оставленной Sanya 25.03.2017 в 16:51
Показать старую версию | новую версию | обе версии
1 | 1 | PROGRAM PRIMER2; | |
2 | 2 | CONST N=3; | |
3 | 3 | VAR I,MAX,M: INTEGER; | |
4 | 4 | X:ARRAY [1..N]OF INTEGER; | |
5 | 5 | BEGIN | |
6 | 6 | FOR I:=1 TO N DO | |
7 | 7 | READLN (X[I]); | |
8 | 8 | MAX:=X[1]; | |
9 | 9 | M:=1; | |
10 | 10 | FOR I:=2 TO N DO | |
11 | 11 | IF X[I]>MAX THEN | |
12 | 12 | BEGIN | |
13 | 13 | MAX:=X[I]; | |
14 | 14 | M:=I; | |
15 | 15 | END; | |
16 | - | WRITELN ('МАКСИМ.ЭЛЕМЕНТ=',МАХ:5,'ЕГО НОМЕР-',M:2); | |
16 | + | WRITELN ('MAX.ЭЛЕМЕНТ=',МАХ:5,'ЕГО НОМЕР-',M:2); | |
17 | 17 | END. |