Различия между изменённой записью 2909 оставленной Гость 25.03.2017 в 16:48 и
оригинальной записью 2902 оставленной Гость 25.03.2017 в 16:46
Показать старую версию | новую версию | обе версии
| 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 | - | for I:=1 to n do | |
| 6 | + | x[1]:=10; | |
| 7 | - | readln (x[i]); | |
| 7 | + | x[2]:=5; | |
| 8 | + | x[3]:=15; | |
| 8 | 9 | max:=X[1]; | |
| 9 | 10 | m:=1; | |
| 10 | 11 | for I:=2 to n do | |
| 11 | 12 | if x[I]>max then | |
| 12 | 13 | begin | |
| 13 | 14 | max:=x[I]; | |
| 14 | 15 | m:=I; | |
| 15 | 16 | end; | |
| 16 | 17 | writeln ('максим. элемент=',max:5,'его номер-',m:2); | |
| 17 | 18 | end. |