uses crt;
var a:array[1..250]of integer;
n,i,t,dem:integer;
begin
clrscr;
write('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
t:=t+a[i];
writeln('Tong=',t);
dem:=0;
dem1:=0;
for i:=1 to n do
if a[i]>0 then dem:=dem+1;
writeln('So luong phan tu duong la: ',dem);
readln;
end.
Cho N số nguyên các dãy a có dạng a1,a2,a3,...an. Mỗi phần tử của dãy không quá 500. Tìm các phần tử chia cho 5 và tính tổng của 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ị
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.
Cho số nguyên dương N và dãy A gồm N số nguyên A1, A2, An và một số nguyên k. a) Đếm số lượng các số bằng 0 trong dãy A b) Đếm số lượng các số chẵn trong dãy A c) Tính tổng các số là bội của k trong dãy A d) Đếm số lượng các số bằng k trong dãy A
cho số nguyên dương n và dãy số a gồm n số a1,a2,,,,,an tính hiển thị tổng các số nguyên âm lẽ trong dãy số a đã cho
a xác định bài toán
b trình bài ý tưởng
c viết thuật toán
d mô phỏng bài toán
Cho dãy gồm N số nguyên A1, A2, An. Hãy trình bày thuật toán tính và hiển thị tổng các số dương có trong dãy đã cho?
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ì?
