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

Question

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

Answer 1

Ответ:

вот допустим так

Program Max_element_massiva ;

Var i, n, max : integer ;

A : array [1..100] of integer;

Begin Writeln('Введите количество элементов массива') ;

Readln(N) ;

Randomize; For i := 1 to N do begin A[i] := Random(100); Write(A[i]); end;

Max := A[1]; For i := 2 to N do if A[i]>Max then Max := A[i]; Writeln('Максимальный Элемент массива = ',Max) ; Readln ;

End.

Answer 2

Ответ:

привет, программа на фото

---