Viết chương trình trả về giá trị nhỏ nhất của 4 số nguyên. Giúp em giải với

0 bình luận về “Viết chương trình trả về giá trị nhỏ nhất của 4 số nguyên. Giúp em giải với”

1. Program NhatNgu;
   Uses crt;
   Var a,b,c,d,min: longint;
   Begin
           Clrscr;
           Write(‘Nhap 4 so a, b, c, d: ‘); Readln(a,b,c,d);
           min:=a;
           If b<min then min:=b;
           If c<min then min:=c;
           If d<min then min:=d;
           Write(‘Min = ‘,min);
           Readln
   End.

   Bình luận

2. uses crt;
   var i,min:longint; a:array[1..4]of longint;
   begin
   clrscr;
      write(‘a,b,c,d=’);readln(a[1],a[2],a[3],a[4]);
      min:=a[1];
      for i:=1 to 4 do if min>a[i] then min:=a[i];
      writeln(‘Min=’,min);
   readln
   end.

   Bình luận