Запись оставлена Гость 25.03.2017 в 16:48 (изменение записи, оставленной Гость | показать различия)
запустить | скачать | различия | новая запись
- program primer2;
- const N=3;
- var I,max,m: integer;
- x: array [1..n] of integer;
- begin
- x[1]:=10;
- x[2]:=5;
- x[3]:=15;
- max:=X[1];
- m:=1;
- for I:=2 to n do
- if x[I]>max then
- begin
- max:=x[I];
- m:=I;
- end;
- writeln ('максим. элемент=',max:5,'его номер-',m:2);
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.