Запись оставлена Гость 25.03.2017 в 16:48 (изменение записи, оставленной Гость | показать различия)
Показать изменения, внесённые Гость | запустить | скачать | различия | новая запись
- PROGRAM PRIMER2;
- CONST N=3;
- VAR I,MAX,M: INTEGER;
- X: ARRAY [1..N] OF INTEGER;
- BEGIN
- FOR I:=1 TO N DO
- READLN(X[I]);
- MAX:=X[1];
- M:=1;
- FOR I:=2 TO N DO
- IF X[I]>MAX THEN
- BEGIN
- MAX:=X[1] ;
- M:=I;
- END;
- WRITELN ('МАКСИМ. ЭЛЕМЕНТ=' ,MAX 5,'ЕГО НОМЕР-',M:2);
- END.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.