Задача 12. Дан массив. Найти наибольшее значение.
Решение:
Идея такова, предположим, что максимальный элемент, это первый:
max:=mas[1]
Затем организуем цикл перебора от 2 до последнего элемента
и на каждом шагу цикла, если очередной элемент массива больше уже найденного максимального,
то пусть максимальному присваивается значение очередного элемента. Запишем программу полностью:
MODULE Example;
IMPORT In, StdLog;
PROCEDURE Calc*;
VAR
mas:ARRAY 100 OF INTEGER;
k, N, max:INTEGER;
BEGIN
In.Open;
N:=-1; Не понимаю, что в этой задаче есть N, тем более зачем N присваивать -1?
WHILE in.Done DO
N:=N+1; Тут зачем то прибавляем единицу
In.Int(mas[N]);
END;
N:=N-1; А тут мы ее снова убираем, написано зачем, но, в свете предыдущих манипуляций не могу понять и это.
k:=k+1;
max:=mas[0];
WHILE k<=N DO
IF mas[k]>max THEN
max:=mas[k];
END;
END;
k:=k+1;
END;
StdLog.Int(max);
END Calc;
END Example.

Примечания. Оператор N:=N-1 необходим для учета последней неудачной операции ввода. перед тем, как цикл
ввода WHILE завершит свою работу, выполнится попытка чтения из уже пустого потока, что создаст состояние
ошибки. переменная Done получит значение FALSE и цикл завершит свою работу, но тело цикла уже будет выполнено
и N вырастет на 1, эту 1 и надо вернуть назад.

Построчно я понял это так:

mas:ARRAY 100 OF INTEGER; Определяем длину массива в 100 целых чисел
------------ причем первый из них mas[0], а последний mas[99]
k, N, max:INTEGER; Задаем переменные
BEGIN
In.Open; Открываем входящий поток
N:=-1; Дальше вычитал, что N в этой задаче является верхней границей индекса элементов массива, зачем то задаем ей значение -1 ??
----------- далее в цикле обратите внимание - мы сначала добавляем 1, а потом начинаем читать в массив. Нам надо прочитать mas[0]. Значит до добавления 1 значение N должно быть -1. Вы скажете, а зачем сначала добавлять 1, а потом читать mas? И будете правы. Если в цикле сначала читать mas[N], а потом добавлять 1, то до цикла N должно будет иметь значение 0. Кстати, N - это не верхняя граница, а номер в массиве куда читаем.
WHILE in.Done DO Если данные из входного потока получены, делаем
N:=N+1; Теперь задаем ей значение 0 ???
In.Int(mas[N]); Берем из входящего потока значение N от массива ??
END;
N:=N-1; Тут же снова отнимаем единицу ??
------- это после цикла. Так часто бывает. В данном случае ошибка.
k:=k+1; Тут появляется k, которое на каждом шаге цикла будет присваивать +1
------- Ошибка. Надо k:=1
max:=mas[0]; Задаем max значение элемента с индексом 0
------- Это опять же определяется последующим циклом. Мы думаем что у нас не менее одного элемента в массиве. Тогда закладываем пробный шар - делаем вид, что это и есть максимум.
WHILE k<=N DO Но ведь N уже меньше k, потому что к этому моменту имеет значение "-1" ???
-------- Вовремя остановиться в переборе и не сделать перебора Здесь N - последний номер, который надо проверить. Номер 0 проверять не надо - мы предварительно уравняли максимум с нулевым номером. Поэтому проверять надо, начиная с номера 1. Если в массиве у нас только один элемент (с номером 0), то и цикла не будет. А если вообще нет ни одного? Ой-ей-ей!
IF mas[k]>max THEN
max:=mas[k];
END;
END;
k:=k+1;
--------- Ошибка. Это должно быть в цикле, а тут это вывалилось из цикла.
END;
StdLog.Int(max);


Я совсем уже запутался
---------- Двигайтесь дальше. Дальше будет легче.

N:=N-1; Тут же снова отнимаем единицу ??
------- это после цикла. Так часто бывает. В данном случае ошибка.