viết chương trình nhập vào mảng một chiều các số nguyên rồi đếm số các phần tử có giá trị dương và tính tổng của chúng.
1 câu trả lời
uses crt;
var a:array[1..1000]of longint;
n,i,count:word;
sum:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(a[i]);
if a[i]>0 then begin inc(sum,a[i]); inc(count) end;
end;
writeln(count);
writeln(sum);
readln;
readln;
end.
