Cho mảng số nguyên A gồm n phần tử A1-… An (n<250) Viết chương tình tìm và in ra màn hình phần tử có giá trị lớn nhất

0 bình luận về “Cho mảng số nguyên A gồm n phần tử A1-… An (n<250) Viết chương tình tìm và in ra màn hình phần tử có giá trị lớn nhất”

1. uses crt;
   var a: array[1..250] of integer;
       i,max,n: integer;
   begin
         clrscr;

         write(‘Nhap n= ‘);readln(n);

         for i:=1 to n do

             begin

                 write(‘a[‘,i,‘]: ‘);readln(a[i]);

             end;

         for i:=1 to n do

             If a[i] > max then max:=a[i];

         write(‘Phan tu lon nhat la: ‘,max);

   readln;
   end.

   Bình luận