uses crt;
var a:array[1..100]of integer;
i,n,x,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('x='); readln(x);
dem:=0;
for i:=1 to n do
if a[i]<=x then inc(dem);
writeln('trong day co ',dem,' so khong lon hon ',x);
readln;
end.
Viết chương trình nhập n số nguyên từ bàn phím. In ra màn hình các số vừa nhập và đếm xem trong n số đó có bao nhiêu số lớn hơn 10 và nhỏ hơn 20
Mọi người giúp em bài này với ạ, em mới biết làm chỗ in ra màn hình các số vừa nhập thôi ạ!
VCT nhập vào 1 mảng số. Hãy:
a)Tính tổng các số chia hết cho 3 và 6
b)In ra các số lớn hơn 3
c) In mảng đã nhập vào
d) Đếm xem có bao nhiêu chứ số lẻ nhập vào chia hết cho 5. In đếm
Viết chương trình tìm số lớn nhất trong dãy số gồm n số nguyên được nhập từ bàn phím và đếm có bao nhiêu số lớn nhất trong dãy.
Chu mi ngaaa !!!
Viết chương trình sử dụng biến mảng nhập vào một dãy n số nguyên rồi in ra màn hình các phần tử lớn hơn không và chia hết cho 5 từ dãy số đó. Mình sẽ tick cho bạn nào giúp mình
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím, in ra màn hình giá trị lớn nhất, giá trị nhỏ nhất và giá trị trung bình của dãy số, tính và in ra màn hình giá trị nhỏ nhất của dãy số nhỏ hơn giá trị TB bao nhiêu, giá trị lớn nhất của dãy số lớn hơn giá trị TB bao nhiêu là bao nhiêu?
Viết chtr đếm các phần tử là số nguyên lẻ của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả ra mang hình
Viết chương trình tìm số lớn nhất trong dãy số gồm n số nguyên được nhập từ bàn phím và đếm các chẵn có trong dãy
nhập số nguyên dương n in ra tổng các số nguyên dương n và dãy số a1 a2...an. Hãy in ra số lớn nhất (max) của dãy số đó
-Viết chương trình nhập 1 dãy số nguyên gồm n phần tử. in ra màn hình vị trí các phần tử có giá trị bằng x ( với x,n được nhập từ bàn phím)
