viết chương trình nhập giá trị của n phần tử của danh sách a và in ra màn hình giá trị phần tử lớn nhất và giá trị phần tử nhỏ nhất. biết rằng các giá trị đc nhập từ bàn phím
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
TD
0
17 tháng 4 2023
program TimSoLonHonA;
var
a: array of integer;
n, i, x: integer;
begin
write('Nhap so phan tu cua day so: ');
readln(n);
SetLength(a, n);
for i := 0 to n - 1 do
begin
write('Nhap gia tri phan tu thu ', i + 1, ': ');
readln(a[i]);
end;
write('Nhap vao mot so nguyen bat ky: ');
readln(x);
writeln('Cac so lon hon ', x, ' la: ');
for i := 0 to n - 1 do
begin
if (a[i] > x) then
writeln(a[i]);
end;
end.
LM
1
17 tháng 4 2023
xau = input('Nhập xâu S in hoa: ')
xau_thuong = xau.lower()
print('Xâu S chữ thường là:', xau_thuong)
program Tim_so;
var
a: array of integer;
i, n, max, min: integer;
begin
write('Nhap so phan tu cua danh sach: ');
readln(n);
SetLength(a, n);
for i := 0 to n - 1 do
begin
write('Nhap gia tri phan tu thu ', i + 1, ': ');
readln(a[i]);
if (i = 0) then
begin
max := a[i];
min := a[i];
end
else
begin
if (a[i] > max) then
max := a[i];
if (a[i] < min) then
min := a[i];
end;
end;
writeln('Phan tu co gia tri lon nhat la: ', max);
writeln('Phan tu co gia tri nho nhat la: ', min);
end.