uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln('Tong cac so duong la: ',t);
readln;
end.
Vẽ sơ đồ khối ạ.
Cho số nguyên dương n và dãy số từ a1 đến aN. Hãy xây dựng thuật toán đưa ra các phần tử âm ở trong dãy trên.
Xây dựng thuật toán cho bài toán sau: cho 1 số nguyên dương N và dãy số nguyên A: a1,a2…aN. Hãy tính: a) Tổng các phần tử có giá trị dương: a1+a3+a5+a7 b) đếm xem trong dãy A có bao nhiêu phần tử có giá trị
Cho số N nguyên dương và dãy số nguyên A gồm a1, a2,.....,an.
Hãy viết thuật toán
a) đưa ra màn hình tổng số các giá trị trong dãy
(Ví dụ: nhập n=4
Dãy A: 3 6 2 1 đưa ra màn hình tổng số bằng 12 <dạng> )
b) Đưa ra màn hình vị trí chứa giá trị lớn nhất. Nếu có 2 GTLN thì dưa ra vị trí nhỏ nhất chứa GTLN.
Câu 2. Xét bài toán: Cho số nguyên dương N và dãy số A1, A2,…, AN. Hãy đưa ra màn hình các phần tử là số
lẻ có trong dãy
a. Hãy xác định Input, Output của bài toán.
b. Hãy mô tả thuật toán giải quyết bài toán bằng cách liệt kê hoặc vẽ sơ đồ khối
Viết thuật toán giải bài toán: Cho số nguyên dương N và dãy số A có N phần tử A1, A2, …, AN. Hãy tính trung bình cộng các số lẻ trong dãy A.
xây dựng bài toán cho các bài toán sau:
a)nhập vào số nguyên N và dãy các số a1,a2,...,an.hãy tính tổng các số dương có trong dãy
b)nhập vào số nguyên N và dãy các số a1,a2,...,an.hãy đếm các số dương có trong dãy
cho dãy A gồm N số nguyên a1, a2...aN . trong dãy A có bao nhiêu phần tử là số lẻ , tính tống các phần tử chẵn đó.
Mọi người giúp mình vs .mình đang cần gấp ....
cho n nguyên dương và dãy A gồm N số nguyên a1,a2...an. a, đếm số lượng số lẽ trong dãy .b tính tổng các số chia hết cho 3 và 4. c đưa ra vị trí của các số chẵn hỏi out là gì?
