Помогите пожалуйста с информатикой!
Массив задан следующим образом:
Const N=10;
Var m : array[1..N] of integer;
Найти значение максимального элемента и поместить его в переменную max.
Ответы
Ответ дал:
0
Ответ:
вот допустим так
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.
Ответ дал:
0
Ответ:
привет, программа на фото
Приложения:
![](https://st.uroker.com/files/4bd/4bd3f2d8762a942c3988105d35032b81.jpg)
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад