program bai_giai;
uses crt;
var n,max,i:longint;a:array[1..250]of longint;
begin
 clrscr;
  write('n=');readln(n);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if a[i]>100 then
                begin
                 write('nhap lai a[',i,']=');readln(a[i]);
                end;
        end;
  max:=a[1];
  for i:=2 to n do if(max<a[i])then max:=a[i];
  write('so lon nhat trong day so la:',max);
 readln;
end.

program sksk;
uses crt;
var a: array[1..249] of integer;
    max, i, n, b  : integer;
begin
clrscr;
write(' nhap so phan tu co trong day :'); readln(n);
for i:= 1 to n do
begin
write(' nhap phan tu thu ', i,':'); readln(a[i]);
end;
max := a[1];
for i:= 1 to n do
if a[i] > max then
begin
max := a[i];
b := i;
end;
writeln(' gia tri nho nhat trong mang la : ', max,' chi so :', b );
readln
end.