Различия между изменённой записью 2914 оставленной Гость 25.03.2017 в 16:50 и
оригинальной записью 2908 оставленной Гость 25.03.2017 в 16:48
Показать старую версию | новую версию | обе версии
| 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[1] ; | |
| 14 | 14 | M:=I; | |
| 15 | 15 | END; | |
| 16 | - | WRITELN ('МАКСИМ. ЭЛЕМЕНТ=' ,MAX 5,'ЕГО НОМЕР-',M:2); | |
| 16 | + | WRITELN ('МАКСИМ. ЭЛЕМЕНТ=' ,MAX:5,'ЕГО НОМЕР-',M:2); | |
| 17 | 17 | END. |