Câu : Viết chương trình nhập vào một mảng các số nguyên. Tìm và xuất ra màn hình giá trị nhỏ nhất và lớn nhất của chúng.
Câu : Viết chương trình nhập vào một mảng các số nguyên. Tìm và xuất ra màn hình giá trị nhỏ nhất và lớn nhất của chúng.
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);
writeln(‘so be nhat la:’,min);
readln
end.
Program BTH;
uses crt;
var a:array[1..10000] of longint;
max,min,i,n:longint;
Begin
clrscr;
write(‘Nhap n: ‘);readln(n);
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);
writeln(‘So nho nhat la: ‘,min);
readln;
end.