Запись оставлена Sanya 25.03.2017 в 16:51 (изменение записи, оставленной 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оздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.

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

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.

Ваше имя
Введите текст с изображения
картинка

Как долго ваша запись должна быть доступна?
1 день 1 месяц Всегда

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

pastebin - collaborative debugging

Меню навигации

Избранные записи

Форум

Чат

Последние записи

Создатели