Quảng cáo
1 câu trả lời 561
program TienPhucKhaiVJ;
uses crt;
var n,i, count :integer;
a:array[1..100] of real;
begin
clrscr;
write('nhap n:');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
count :=0;
for i:=1 to n do
if (a[i] > 0) then
count:= count+1;
writeln('So cac duong trong day la: ',count);
readln
end.
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
55463 -
Đã trả lời bởi chuyên gia
31395 -
Đã trả lời bởi chuyên gia
29941
Gửi báo cáo thành công!
