viết CT nhập vào mảng a gồm n pt (n<101) in ra màn hình số lớn nhất

0 bình luận về “viết CT nhập vào mảng a gồm n pt (n<101) in ra màn hình số lớn nhất”

1. uses crt;

   var a: array[1..100] of integer;

         i,n,max: integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

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

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

   end;

   writeln (‘so lon nhat la: ‘,max);

   readln;

   end.

   Bình luận

2. program mang;

   uses crt;

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

         n,i,max:integer;

   begin

   clrscr;

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

   write(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

   for i:=1 to n do

    begin

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

     readln(A[i]);

    end;

   max:=A[1];

   for i:=1 to n do

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

   write(A[i]);

   readln

   end.

   Bình luận