Как сделать так, чтобы программа выводила в конце максимальный элемент, а не последний?

Program xxx;
Var a: array [1..5] of integer;
i: integer;
inputArray : array [1..5] of integer;
max : integer;

Begin
WriteLN('Дальше вам будет необходимо ввести 5 целых чисел');
For i:=1 to 5 do
Begin
WriteLN('Введите элемент массива');
ReadLN(a[i]);
End;
WriteLN('Массив a:');

For i:=1 to 5 do
WriteLN(a[i], ' ');
Begin
max:=A[i];
for i := 1 to 5 do
if max < inputArray[i] then
max := inputArray[i];
End;
WriteLN('Максимальный элемент массива ', max);
End.

32

Объяснение:

Данная программа прибавляет к переменной s 128, а еще увеличивает переменную n в два раза, и все это до тех пор пока s меньше или равняется 1024. То есть, эти изменения переменных прекратятся, когда условие цикла не будет выполнено (а именно, когда s станет больше 1024). И после того, как это произойдет программа выведет значение переменной n (как раз то, что нам нужно узнать!)

Итак, запустим программу:

n = 1

s = 0

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 2

s = 128

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 4

s = 256

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 8

s = 512

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 16

s = 1024

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 32

s = 2048

Условие цикла выполняется (s меньше или равняется 1024)? Нет (наконец-то!).

Цикл перестает выполнятся, и программа пишет значение n, которое равняется (смотрим выше) 32.

На экране напечатано 32, все живы, все счастливы!

32

Объяснение:

Данная программа прибавляет к переменной s 128, а еще увеличивает переменную n в два раза, и все это до тех пор пока s меньше или равняется 1024. То есть, эти изменения переменных прекратятся, когда условие цикла не будет выполнено (а именно, когда s станет больше 1024). И после того, как это произойдет программа выведет значение переменной n (как раз то, что нам нужно узнать!)

Итак, запустим программу:

n = 1

s = 0

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 2

s = 128

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 4

s = 256

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 8

s = 512

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 16

s = 1024

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 32

s = 2048

Условие цикла выполняется (s меньше или равняется 1024)? Нет (наконец-то!).

Цикл перестает выполнятся, и программа пишет значение n, которое равняется (смотрим выше) 32.

На экране напечатано 32, все живы, все счастливы!