Автор - toma74 11 лет назад

Задача матрицы найти максимальный элемент матрицы 16 2 8 9 14 27 (М 6) необходимо решение и блок-схема

Ответ

Автор - AdaLavleis

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.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.