Viết chương trình nhập vào 1 dãy số nguyên có n phần tử . In ra màn hình phần tử nhỏ nhất và phần tử lớn nhất
Viết chương trình nhập vào 1 dãy số nguyên có n phần tử . In ra màn hình phần tử nhỏ nhất và phần tử lớn nhất
By Quinn
By Quinn
Viết chương trình nhập vào 1 dãy số nguyên có n phần tử . In ra màn hình phần tử nhỏ nhất và phần tử lớn nhất
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, min, max, n: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
end;
min:=A[1];
max:=A[1];
for i:=1 to n do
begin
if min>A[i] then min:=A[i];
if max<A[i] then max:=A[i];
end;
writeln(‘Phan tu lon nhat: ‘, max);
write(‘Phan tu nho nhat: ‘, min);
readln
end.