Дан массив из n элементов, найти максимальный элемент.
Решение:
program massiv; const n=5; var i,m:integer; A: array [1..n] of integer; BEGIN
for i:=1 to n do begin writeln('A[',i,']='); readln(A[i]);
m:=A[1]; for i:=2 to n do if m<A[i] then m:=A[i]; writeln('Наибольший элемент равен',m); readln; END.
Объяснение: В первом цикле вводим числа в массив. Количество чисел зависит от константы, в данном случае она равна 5. Далее присваиваем переменной m первый элемент массива. Далее в втором цикле если m меньше А[i] (i - это шаг массива, шаг начинается с двух) то m присваивается A[i]. Этот цикл будет сравнивать все элементы массива и в конце переменная m будет иметь наибольшее значение массива. Выводим m.