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
2 câu trả lời
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.
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.