Вот на Паскале:
uses crt;
var mas:array [1..100] of integer;
max,i,n:integer;
begin
clrscr;
writeln (' vvedite kol-vo cifr ');
readln (n);
for i:=1 to n do begin
write ('vvedite ',i, ' Chislo ');
readln (mas[i]);
end;
max:=mas[i];
for i:=2 to n do
if mas[i]>max then max:=mas[i];
writeln ('max chislo: ',max);
readln;
end.