viết chương trình có sử dụng biến mảng để lưu laị dãy n số được nhập từ bàn phím và tìm ra số lớn nhất

0 bình luận về “viết chương trình có sử dụng biến mảng để lưu laị dãy n số được nhập từ bàn phím và tìm ra số lớn nhất”

1. uses crt

   var i,n, Max: integer;

   a: array [i .. 100] of integer;

   begin

   write(‘Nhap phan tu cua day so’ )

   for i:=1 to n do begin

   writeln ( ‘a[ ‘a’ ] =’ ), 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 cua day so tren la’,Max);

   readln

   End.

   Bình luận

2. program so_lon_nhat;

   uses crt;

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

        n,i,max:integer;

   begin

          clrscr;

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

          for i:=1 to n do

                 begin

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

                 end;

          write(‘Day so vua nhap la: ‘);

          max:=A[1];

          for i:=1 to n do

                 begin

                        write(A[i],’ ‘);

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

                 end;

          writeln;

          write(‘So lon nhat la: ‘,max);

          readln;

   end.

   Bình luận