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