Помогите пожалуйста с информатикой! Массив задан следующим образом: Const N=10; Var m :...

Question

Помогите пожалуйста с информатикой! Массив задан следующим образом: Const N=10; Var m : array[1..N] of integer; Найти значение максимального элемента и поместить его в переменную max.

Answer 1

Ответ:

var max: integer;

max := m[1];

foreach i: integer in m do

     if (max < i) then max := i;

Пример:

---