Bài 4: Bài toán và thuật toán

Nguyễn Thu Hiền

Nhập N, dãy a1 ... an . Hãy đưa ra tổng các phần tử và số dương trong dãy.

Mong mọi người giúp với ạ !!!

Minh Lệ
2 tháng 10 2020 lúc 21:09

Bài 4: Bài toán và thuật toán

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
2 tháng 10 2020 lúc 21:51

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.

Bình luận (0)
Nguyễn Thu Hiền
2 tháng 10 2020 lúc 20:26

Vẽ sơ đồ khối ạ.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
KIều Ren
Xem chi tiết
Trần Khánh Hà
Xem chi tiết
Hoài Linh
Xem chi tiết
Dương
Xem chi tiết
09. Lương Trần Tuấn Dũng
Xem chi tiết
Nguyễn Thùy Dương
Xem chi tiết
nguyễn bùi hương giang
Xem chi tiết
Thúy Đặng
Xem chi tiết
Vỏ thuỷ
Xem chi tiết