Вывести на экран максимальный элемент массива, массив заполняется с клавиатуры.
Вывести на экран максимальный элемент массива, массив заполняется с клавиатуры.
Гость
Ответ(ы) на вопрос:
ГостьПрограмма может выглядеть так:
uses crt;
const m=1000;
type Mas=array [1..m] of integer;
Var A: Mas;
i, Max, n: integer;
Begin
ClrScr;
Write('n = ');
ReadLn(n);
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
end;
Max:=A[1];
for i:=2 to n do
if A[i]>Max then Max:=A[i];
Writeln;
WriteLn ('Max = ', Max);
ReadLn;
end.
Не нашли ответ?
Похожие вопросы