viết chương trình nhập vào độ dài của một dãy số sau đó nhập giá trị cho các phần tử của dãy số và in ra số lớn nhất trong dãy số đó.

Chương trình bao nhanh, nhanh nhất có thể rồi đó.

program solonnhat;

uses crt;

var A:array[1..1000] of integer;

      n,i,max:integer;

begin

     clrscr;

     write(‘Nhap so luong phan tu n: ‘);   readln(n);

     write(‘Nhap so thu 1: ‘);   readln(A[1]);

     max:=A[1];

     for i:=2 to n do

          begin

               write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

               if A[i]>max then max:=A[i];

          end;

     write(‘Gia tri lon nhat trong day la: ‘,max);

     readln;

end.