Задай вопрос из школьного предмета 10 - 11 классы Информатика 5+3 б
Задача матрицы найти максимальный элемент матрицы 16 2 8 9 14 27 (М 6) необходимо решение и блок-схема Попроси больше объяснений Следить Отметить нарушение Toma74 10.05.2014 Реклама
ответы и объяснения AdaLavleis 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 ;
Задай вопрос из школьного предмета
10 - 11 классы Информатика 5+3 б
Задача матрицы найти максимальный элемент матрицы 16 2 8 9 14 27 (М 6) необходимо решение и блок-схема
Попроси больше объяснений Следить Отметить нарушение Toma74 10.05.2014
Реклама
ответы и объяснения
AdaLavleis
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 ;