Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Hồng Ngọc

Viết phương trình: nhập N số nguyên và nhập N từ bàn phím:

-Tính tổng dãy số -> tham khảo bài 7.

-Đếm xem dãy có bao nhiêu số nguyên dương.

(mn giúp mk với ạ mk đang cần gấp ạ).

Minh Lệ
17 tháng 4 2022 lúc 21:52

Program HOC24;

var  d,N,i: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0; d:=0;

for i:=1 to n do

begin

t:=t+a[i];

if a[i]>0 then d:=d+1;

end;

writeln('Tong day so la: ',t);

write('Co ',d,' so nguyen duong');

readln

end.


Các câu hỏi tương tự
Nhat thanh Tran
Xem chi tiết
❤X༙L༙R༙8❤
Xem chi tiết
Xem chi tiết
Trang
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Võ Phan Xuân Trung
Xem chi tiết
Hương Giang
Xem chi tiết
Hải Hà
Xem chi tiết
❤X༙L༙R༙8❤
Xem chi tiết