Информатика, опубликовано 2018-08-22 22:41:27 by Гость

Вывести на экран максимальный элемент массива, массив заполняется с клавиатуры.

Ответ оставил Гость

Программа может выглядеть так:

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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.

Форма вопроса доступна на полной версии этой страницы.