Предмет: Информатика,
автор: nekitbobkov
Массив из 12 элементов. Найти наибольший элемент массива
Паскаль
francuz4323:
Язык программирвания какой?
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Английский язык,
автор: РобекаСтим
Предмет: Математика,
автор: ivanovapolina191
Предмет: Математика,
автор: Vedel1986
Предмет: Литература,
автор: Julia3189
Предмет: История,
автор: адзуми