Tuan Docong
Hỏi từ APP VIETJACK
Viết chương trình nhập dãy số thực k cho biết trong dãy số có bao nhiêu số âm và tính tổng số dương
Quảng cáo
1 câu trả lời 216
progam hotrotinhoc;
var a: array[1..32000] of integer ;
i,n,dem1,dem2 : ;
begin
write('n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
dem1:=0; dem2:=0;
for i:= 1 to n do
begin
if a[i]>0 then dem1:=dem1+1;
if a[i]>0 then dem1:=dem2+1;
end;
write('Cac so am trong day la:',dem1);
writeln;
write('Cac so duong trong day la:',dem2);
readln
end.
Tuan Docong
· 3 năm trước
Có tính tổng chưa ạ
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86376
Gửi báo cáo thành công!
