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

Question

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

Answer 1

Программы на языке Pascal.

Ввод элементов массива с клавиатуры:

program a;

const N=10;

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

   i, max: integer;

begin

 max:= -32768;

 for i:= 1 to N

   do begin

        readln(m[i]);

        if(m[i]>max)

          then max:= m[i];

      end;

 writeln(max);

end.

Заполнение массива случайными числами:

program a;

const N=10;

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

   i, max: integer;

begin

 randomize;

 max:= -32768;

 for i:= 1 to N

   do begin

        m[i]:= random(-32768, 32767);

        if(m[i]>max)

          then max:= m[i];

      end;

 writeln(max);

end.