uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln(dem);
readln;
end.
hãy viết chương trình nhập vào một dãy N số nguyên từ bàn phím( N là số nguyên dương được nhập vào từ bàn phím và N>10). Tính và in ra màn hình các yêu cầu sau:
a. Tính tổng các số vừa nhập
b. tính tích các số vừa nhập
c. tính tb các số vừa nhập
d. hãy tìm số lớn nhất và số bé nhất
e. hãy tìm số nhỏ nhất mà lớn hơn tb trong các số vừa nhập
f. hãy nhập vào một số nguyên X. Hãy đếm xem có bao nhiêu số không lớn hơn X trong dãy
giúp mik vs nha :(((
viết chương trình nhập vào mảnh n (n được nhập từ bàn phím)
MÌNH CẦN GẤP Ạ, MAI THI RỒI :(( 1. Viết chương trình tính tổng và tích các số chia hết cho 3 trong dãy số N. 2. Viết chương trình đếm xem trong dãy số N có bao nhiêu số chẵn và tính tổng các số chẵn đó. 3. Viết chương trình đếm có bao nhiêu số chẵn hoặc lẻ trong dãy số N rồi tính tổng và tích của các số chẵn và lẽ đó. Mong mọi người giúp mình :((
viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b) dãy có bao nhiêu số dương tính tổng các số dương đó
Viết chương trình nhập vào 1 dãy số nguyên dương có n phần tử (n là số nguyên dương nhập từ ban phím), xuất dãy số ra màn hình. Cho biết dãy số có bao nhiêu số chính phương. Số chính phương là số khi ta rút căn bậc 2 có kết quả là số nguyên. Ví dụ như số 4, 9, 16, 25, 36,.... Sắp xếp dãy số tăng dần. Xuất dãy số sau khi sắp xếp. Lưu ý: Các chức năng của chương trình đều được thực hiện bằng hàm. Ví dụ như chức năng nhập, xuất, kiểm tra chính phương, ...
pascal viết chương trình tính tổng sau
S=1/4+2/9+3/16+4/25+5/36-6/49+.....
tổng này có M số hạng , với N là số nguyên dương nhỏ hơn 1000 ,N nhập từ bàn phím
sử dụng biến mảng viết chương trình nhập dãy số N số nguyên từ bàn phím, sau đó in ra màng hình có bao nhiêu số lẻ, số chẵn trong dãy số đó.
viết chương trình nhập vào một dãy số gồm N SỐ NGUYÊN
A.Tính tổng các số nguyên đó
b.Dãy có bao nhiêu số dương ?Tính tổng các số dương đó
Viết 1 phương trình Pascal hoàn chỉnh để tính giá trị của biểu thức sau, trong đó giá trị của 2 số x , y được nhập vào từ bàn phím x + x²y - xy² +y
