Tìm phần tử lớn nhất của đấy số nguyên (n<=250 và A[i]<=500). Nếu dãy có nhiều phần tử có cùng giá trị thì đưa ra phần tử có giá trị lớn nhất đầu tiên

0 bình luận về “Tìm phần tử lớn nhất của đấy số nguyên (n<=250 và A[i]<=500). Nếu dãy có nhiều phần tử có cùng giá trị thì đưa ra phần tử có giá trị lớn nhất đầu tiên”

1. program lonnhat;

   uses crt;

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

         n,i,max,vt:integer;

   begin

        clrscr;

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

        for i:=1 to n do

             begin

                  write(‘A[‘,i,’]= ‘);   readln(A[i]);

             end;

        max:=A[1];  vt:=1;

        for i:=1 to n do

            if A[i]>max then 

                begin

                  max:=A[i];

                  vt:=i;

                end;

        write(‘So lon nhat la: A[‘,vt,’]= ‘,max);

        readln;

   end.

   Bình luận