Вычислить максимальное значение среди трех показателей. Рассмотреть данную задачу для N- элементов.

1

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

2014-03-02T17:58:26+00:00
Var a,n,m,i:integer;
begin
readln(n);
for i:=1 to n do begin
read(a);
if a>m then m:=a;
end;
writeln(m);
end.