Tìm giá trị lớn nhất của các phần tử trong mảng

0 bình luận về “Tìm giá trị lớn nhất của các phần tử trong mảng”

1. program hoidap247;

   uses crt;

   var a: array[1..10000] of longint;

         i, n, max: longint;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

        write(‘a[‘,i,’]=’); 

        readln(a[i]);

   end;

   max:=a[1];

   for i:=2 to n do

   if max<a[i] then max:=a[i];

   writeln(‘gia tri lon nhat trong mang la: ‘, max);

   readln

   end.

   Bình luận

2. Program BTH;
   uses crt;
   var a:array[1..100000] of longint;
   n,i,max:longint;
   tb:real;
   Begin
           clrscr;
           write(‘Nhap 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 max<a[i] then max:=a[i];
           end;
           writeln(‘So lon nhat trong day la: ‘,max);
           readln;
   end.

   Bình luận