Viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình số lớn nhất

0 bình luận về “Viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình số lớn nhất”

1. BÀI ĐÂY NÈ:

   

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..100] of integer;
       i,n,max:integer;
   begin
           clrscr;
           write(‘nhap so 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 a[i]>max then
                           max:=a[i];
           writeln(‘Max: ‘,max);
           readln;
   end.

   Bình luận