Viết chương trình nhập vào dãy số nguyên. Sau đó tính và xuất ra màn hình giá trị lớn nhất của dãy số nguyên đó.

0 bình luận về “Viết chương trình nhập vào dãy số nguyên. Sau đó tính và xuất ra màn hình giá trị lớn nhất của dãy số nguyên đó.”

1. Program BTH;
   uses crt;
   var a:array[1..100000] of longint;
   max,min,n,i: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];
           min:=a[1];
           For i:=2 to n do
           Begin
                   If max<a[i] then max:=a[i];
                   If min>a[i] then min:=a[i];
           end;
           If max=min then writeln(‘Ca bon so bang nhau’) else
           Begin
                   Writeln(‘So lon nhat la: ‘,max);
                   Writeln(‘So be nhat la: ‘,min);
           end;
           readln;
   end.

   Bình luận

2. Program Hotboy;

   Uses crt;

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

   I,n,max : longint;

   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(‘phan tu lon nhat bang ‘,max,’ trong mang’); 

   Readln

   End.

   Bình luận