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