nhập một số nguyên N và mảng gồm N phần tử nguyên từ file ' mang.inp tính tbinhf cộng các phần tử dương của mảng
1 câu trả lời
uses crt;
var f:text;
a:array[1..1000]of longint;
n,i,count:word;
sum:longint;
begin
clrscr;
assign(f,'mang.inp');reset(f);
readln(f,n);
for i:=1 to n do
begin
read(f,a[i]);
if a[i]>0 then begin inc(sum,a[i]); inc(count) end;
end;
close(f);
write(sum/count:0:2);
readln;
end.
