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.
Bạn đang xem bài 2: - TIN 11 DE THI DAP AN HKII