Viết chương trình in ra màn hình phần tử có giá trị nhỏ nhất

0 bình luận về “Viết chương trình in ra màn hình phần tử có giá trị nhỏ nhất”

1. Program Cau2;

   Uses crt;

   Var i,n,max,min: integer;

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

   Begin

   Clrscr;

   Write(‘ Nhap do dai cua day so, n= ‘);

   Readln(n);

   Writeln(‘Nhap cac phan tu cua day so: ‘);

   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;

   Writeln(‘So lon nhat la max= ‘, max);

   Writeln(‘So nho nhat la min= ‘, min);

   Readln;

   Bình luận

2. uses crt;

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

   i,n,min:integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

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

   end;

   {——————————-xu-ly——————————}

   min:=a[1];

   for i:=1 to n do

   if min>a[i] then min:=a[i];

   writeln(‘phan tu co gia tri nho nhat cua day so nguyen la: ‘,min);

   readln;

   end.

   Bình luận