Viết chương trình nhập vào một số nguyên dương N (N<=250) và dãy số gồm N số nguyên từ A1..An. Hãy đếm tổng các số dương trong dãy trên.

huongbee2003

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 24 xem

1 trả lời

Thích Trả lời

38thienthan

program dem_tong;

uses crt;

var A:array[1..250] of integer;

n,i,d,t:integer;

begin

clrscr;

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

d:=0; t:=0;

for i:=1 to n do

begin

write('A[',i,']= '); readln(A[i]);

if A[i]>0 then

begin

d:=d+1;

t:=t+A[i];

end;

writeln('Co ',d,' so duong');

writeln('Tong cac so duong la: ',t);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

phuongkabi28012005

uses crt;
var a:array[1..250]of longint;
n,i,s,d:integer;
begin
clrscr;
s:=0;d:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']: ');readln(a[i]);
end;
for i:=1 to n do if a[i]>0 then
begin
inc(d,1);
inc(s,a[i]);
end;
writeln('Co ',d,' so duong');
write('Tong cac so duong trong day: ',s);
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Viết 1 đoạn văn trình bày lòng yêu nước trong thời covid

mọi người giúp mình với mình cảm ơn ạ

Gía trị kinh tế của việc chăn nuôi bò

làm bài văn tả cảnh quê em lúc bình minh dài 2 trang rưỡi nhá nhanh nhất, hay nhất cho ctlhn + 5 sao

tìm x a) 4x - 33 = -5 b) 2.x + 1/4 = 3/2 d) |x + 2/7| = 1/6

Câu 2: Cho tam giác ABC cân tại A, AB = 13cm, BC = 10cm. Đường phân giác AH cắt đường trung tuyến BM tại G. G là gì của tam giác ABC? Vì sao? Tính AG. Mik cần gấp Anh làm đúng mik cho 5 sao

5. I don’t think Stallone is a very good _____ although he was very good in the Rocky films. * 1 điểm director actor singer performer 6. Non-renewable energy comes from sources that will eventually _____ * 1 điểm run way run in run out run up

: Hồng hỏi Cúc: “Bây giờ là mầy giờ chiều?”. Cúc trả lời: “Thời gian từ lúc 12 giờ trưa đến bây giờ bằng 1/3 thời gian từ bây giờ đến nửa đêm (tức 12 giờ đêm hôm nay)”. Em hãy tính xem bây giờ là mấy giờ. Toán nâg cao nè.

mn ơi giúp mk với mk cần gấp lắm chìu nộp rùi Cho 6,5 gam Zn tác dụng với 100 gam dung dịch HCl 14,6% a) Viết phương trình phản ứng xảy ra b) Tính thể tích khí thoát ra ( ở đktc) c) Tính nồng độ phần trăm của các chất có trong dung dịch sau khi phản ứng kết thúc Trả lời 2 ý cx đc nha năn nỉ mà

Bài 4. Tổng hai số là 143. Tìm hai số đó biết nếu xoá đi chữ số 0 ở tận cùng bên phải số thứ nhất thì được số thứ hai. sjwkgshsjsgevbeneneb

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến