Ai giúp mình giải 2 câu này ngay bây giờ không vậy. Mình cần rất gấp hôm nay để ôn !!! Tks!!! a) Viết chương trình tìm số lớn nhất (nhỏ nhất) trong 3 số thực (số nguyên) a,b,c. b) Viết chương trình nhập vào màng B gồm 3 phân tử kiểu số thực (số nguyên). Tìm số lớn nhất (nhỏ nhất ) trong 3 số thực(số nguyên) đó.
1 câu trả lời
a)
uses crt;
var a, b, c, m : integer;
begin
clrscr;
write('nhap ba so a, b, c : '); readln(a, b, c);
m := a;
if b > m then m := b;
if c > m then m := c;
write('so lon nhat : ', m);
readln
end.
b)
uses crt;
var b : array[1..3] of real;
i : byte; min, max : real;
begin
clrscr;
for i := 1 to 3 do
begin
write('nhap so thu ', i ,' : '); readln(b[i]);
end;
min := b[1]; max := b[2];
for i := 2 to 3 do
begin
if b[i] > max then max := b[i];
if b[i] < min then min := b[i];
end;
writeln('phan tu nho nhat : ', min);
writeln('phan tu lon nhat : ', max);
readln
end.
