Viết chương trình nhập vào 20 số thực và đưa ra màn hình số lớn nhất, bé nhất.
Help me!!!!
Viết chương trình nhập vào 20 số thực và đưa ra màn hình số lớn nhất, bé nhất. Help me!!!!
By Eloise
By Eloise
Viết chương trình nhập vào 20 số thực và đưa ra màn hình số lớn nhất, bé nhất.
Help me!!!!
uses crt;
var a: array[1..20] of real;
min,max: real;
i,n: byte;
begin
clrscr;
write (‘nhap so luong phan tu: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap phan tu thu ‘,i,’: ‘); readln (a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln (‘so lon nhat: ‘,max);
writeln (‘so be nhat: ‘,min);
readln;
end.
program max_min;
uses crt;
var A:array[1..20] of real;
i:byte;
max,min:real;
begin
clrscr;
for i:=1 to 20 do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
max:=A[1]; min:=A[1];
for i:=2 to 20 do
begin
if A[i]>max then max:=A[i];
if A[i]<min then min:=A[i];
end;
writeln(‘So lon nhat la: ‘,max:0:2);
writeln(‘So be nhat la: ‘,min:0:2);
readln;
end.