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