uses crt;
const fi='dulieu.inp'
var f1:text;
i,n,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
dem:=0;
for i:=1 to n do
if a[i]<0 then dem:=dem+1;
writeln(dem);
close(f1);
readln;
end.
Đọc dữ liệu từ tệp Dl. Dat chứa các số nguyên. Loại bỏ các số âm có trong dãy Đếm trong dãy có bao nhiêu số bằng 10 sau khi loại bỏ. Kết quả ghi vào tệp Dl. Dat
Cho dãy gồm N số tự nhiên a1,a2,a3...aN. viết chương trình in ra tổng các số âm,số dương của Dữ liệu vào cho bởi tệp DULIEU.INP có cấu trúc - dòng đầu tiên chứa số N - dòng thứ 2 chứa các số a1,a1,s3...aN các số cách nhau ít nhất 1 kí tự trống
Cho tệp dulieu.inp chứa các bộ số nguyên ( mỗi bộ ghi trên 1 dòng gồm 2 số nguyên cách nhau bởi 1 kí tự trống). Vt ctrinh đọc dữ liệu trong tệp trên rồi tính tổng của mỗi bộ số nguyên, ghi các kq vào tệp tong.out( mỗi kq trên 1 dòng ). Lưu ý có sd ctrinh con
Tệp "DULIEU.INP" chứa hai số nguyên dương ngăn cách nhau ít nhất một dấu cách, số trước nhỏ hơn số sau và nhỏ hơn 100.
Viết chương trình: Đọc từ tệp "DULIEU.INP" vào biến M và N (M<N). Tính tổng các số lẻ trong phạm vi từ M đến N. Ghi kết quả ra tệp "KETQUA.OUT".
giả sử có 1 tệp chứa các số nguyên tên là songuyen.txt viết chương trình đưa các số nguyên dương sang tệp soduong.out
Cho tệp BAIKT.INP chứa các số nguyên bất kì. Viết chương trình đếm xem trong tệp có bao nhiêu số lẻ rồi ghi kết quả vào tệp KETQUA.OUT
Đọc dữ liệu từ tệp DL.Dat có chứa các chữ số nguyên. Đếm trong tệp có bao nhiêu số nguyên tố. Các kết quả ghi vào tệp KQ.Dat (C++)
Đọc dữ liệu từ tệp có tên DL.Dat chứa các số nguyên. đếm trong tệp có bao nhiêu số là số chính phương đồng thời là số hoàn hảo. Kết quả ghi vào tệp KQ.Dat
