uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!
Viết chương trình pascal sử dụng 2 cách: có sử dụng không sử dụng chương trình con thực hiện nhập một xâu ký tự từ bàn phím, thực hiện chuyển đổi toàn bộ xâu sang chữ hoa. Hiện thị kết quả ra màn hình.
Giúp mình với ạ :<
Giúp em với ạ Tìm ước số chung của nhiều cặp số a và b
Viết chương trình nhập vào 3 số nguyên. Tính tổng của số thứ nhất và thứ hai, tính tích của số thứ ba. (trên Pascal)
Viết chương trình con tính tổng, tích, tìm số lớn, số bé trong 2 số nguyên. Gọi thực thi chương trình con ở chương trình chính.
mọi người giúp e để mai e kiểm tra với ạ.
các bn giúp mk nhanh vs mk đang ktra ạ câu1 2 làm ơn ạ