PROGRAM B2;VAR A

Bài 2:

Program B2;

Var a:array[1..20] of integer;

i, s: integer; f,g:text;

Begin

Assign(f,'e:\A.INT'); reset(f);

Assign(g,'e:\B.OUT'); rewrite(g); s:=0;

For i:=1 to 20 do read(f,a[i]);

write(g,'Cac so duong trong day la:');

For i:=1 to 20 do if a[i] >0 then

begin

write(g,a[i],' ');

s:=s+a[i];

end;

write(g,' Tong cac so duong:',s);

close(f); close(g);

End.