Вот на Паскале: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.