Viết Chương Trình Nhập Dãy n Số Nguyên .Tìm Và Thông Báo Ra Màn hình Số lớn nhất và nhỏ nhất

0 bình luận về “Viết Chương Trình Nhập Dãy n Số Nguyên .Tìm Và Thông Báo Ra Màn hình Số lớn nhất và nhỏ nhất”

1. program ct;

   uses crt;

   var i,n,Max,Min:integer;

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

   begin

   clrscr;

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

       for i:=1 to n do                      

   begin

     write(‘nhap mang 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[1];

   end;

     writeln(‘gia tri lon nhat la:’,Max);

     writeln(‘gia tri nho nhat la:’,Min);

   readln

   end.

   Bình luận

2. Program bai_tap;

   Uses crt;

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

                  i,n,max,min: integer;

   Begin 

   Write (‘nhap n=’); 

   Readln (n);

   For i:=1 to n do

   Begin

   Write (‘nhap phan tu thu ‘,i,’=’);

   Readln (A[i]);

   end;

   Max:= A[1];

   For i:= 2 to n do

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

   Min:= A[1];

   For i:=2 to n do 

   If A[i]< min then min:= A[i];

   Writeln (‘So lon nhat trong day la:’,max);

   Writeln (‘So nho nhat trong day la:’,min);

   Readln 

   End.

   Bình luận