Tìm số lớn nhất trong dãy số nguyên A gồm N phần tử (A1, A2, An-) N = 5 A= 7 2 1 8 4 (Đề Tự Luận)

0 bình luận về “Tìm số lớn nhất trong dãy số nguyên A gồm N phần tử (A1, A2, An-) N = 5 A= 7 2 1 8 4 (Đề Tự Luận)”

1. Uses crt;
   Var a:array[1..10000] of longint;
         n, i, max: integer;
   Begin
   Clrscr;
   Writeln(‘Nhap so lg ptu, n = ‘); readln(n);
   For i:=1 to n do 
     begin
          write(‘a[‘,i,’]=’);
          readln(a[i]);
     end;
   Max:=a[1];
   For i:=1 to n do if a[i]>max then max:=a[i];
   Writeln(‘So lon nhat trong day la: ‘,max);
   Readln
   end.

   Bình luận