pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

 > Turbo Pascal Онлайн Получить справку

Различия между изменённой записью 2913 оставленной Sanya 25.03.2017 в 16:50 и
оригинальной записью 2904 оставленной Sanya 25.03.2017 в 16:46
Показать старую версию | новую версию | обе версии

    
11
PROGRAM PRIMER2;
22
CONST N=3;
33
VAR I,MAX,M: INTEGER;
4+
X:ARRAY [1..N]OF INTEGER;
45
BEGIN
56
FOR I:=1 TO N DO
67
READLN (X[I]);
78
MAX:=X[1];
89
M:=1;
910
FOR I:=2 TO N DO
1011
IF X[I]>MAX THEN
1112
BEGIN
1213
MAX:=X[I];
1314
M:=I;
1415
END;
1516
WRITELN ('МАКСИМ.ЭЛЕМЕНТ=',МАХ:5,'ЕГО НОМЕР-',M:2);
1617
END.

Использовать подсветку синтаксиса
В текущей реализации JS-DOS Read/ReadLn работают только при подключенном модуле Crt! Для подсветки отдельных строк используйте для них префикс @@


картинка


Запомнить мои настройки