Запись оставлена улька 25.03.2017 в 16:50
запустить | скачать | новая запись
- PROGRAM PRIMER2;
- CONST N=20;
- VAR 1,МАХ,M: INTEGER;
- X: АRRAY [1..N] ОF INTEGER;
- BEGIN
- FОR I:=1 ТО N DO
- READLN (X[I]);
- МАХ:=X[I] ;
- M:=1;
- FOR I:=2 ТО N DO
- IF Х[I]>МАХ ТНЕN
- BEGIN
- МАХ:=Х[I];
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.