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

Question

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

Answer 1

Ответ:

Код ниже

Объяснение:

program findMax;

const N = 10;

var i: byte;

   max: integer;

   m : array[1..N] of integer;

begin

   randomize;

   for i := 1 to N do begin

       m[i] := Random(100) - 50;

   end;

   max := m[1];

   for i := 2 to N do begin

       if m[i] > max then max := m[i]

   end;

   writeln('Максимальный элемент равен ', max);

end.