Tìm giá trị lớn nhất trong dãy số nguyên. Yêu cầu Max:=aN và so sánh lần lượt giá trị Max với các giá trị thứ N-1 về 1.

0 bình luận về “Tìm giá trị lớn nhất trong dãy số nguyên. Yêu cầu Max:=aN và so sánh lần lượt giá trị Max với các giá trị thứ N-1 về 1.”

1. uses crt;
   var n,i,max:longint; a:array[1..10000000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
         end;
      max:=a[n];
      for i:=n-1 downto 1 do if a[i]>max then max:=a[i];
      writeln(‘Max: ‘,max);
   readln
   end.

   Bình luận

2. Program qtruong;
   Uses crt;
   Var max, n, i: integer;
         a:array[1..100] of integer;
   Begin
   Clrscr;
   Write(‘Nhap n = ‘); readln(n);
   For i:=1 to n do
   begin
        write(‘a[‘,i,’]=’); 

        readln(a[i]);
   end;
   Max:=a[n];
   For i:=n-1 downto 1 if a[i] > max then max:=a[i];
   Writeln(‘GTLN trong day la: ‘,max);
   readln
   end.

   Bình luận