Cho tệp văn bản DAYSO.INP có cấu trúc:

+ Dòng 1: Ghi số nguyên dương N  (0<N<=100)

+ Dòng 2: Ghi dãy gồm n số nguyên Ai (-30000<=Ai<=30000).

Yêu cầu: Viết chương trình đọc dữ liệu từ tệp trên và thực hiện các công việc sau:

a) Tính tổng các số ở dòng 2, ghi kết quả vào tệp TONG.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên S là tổng tìm được

b) Tính tổng các số dương ở dòng 2, ghi kết quả vào tệp TD.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên S là tổng các số dương tìm được

c) Đếm số lượng các số chẵn ở dòng 2, ghi kết quả vào tệp SOCHAN.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên k là số lượng số chẵn

+ Dòng 2: Ghi các số chẵn tìm được, các số ghi cách nhau 1 dấu cách trống.

d) Đếm số lượng các số âm chẵn ở dòng 2, ghi kết quả vào tệp SOAMCHAN.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên k là số lượng số âm chẵn

+ Dòng 2: Ghi các số âm chẵn tìm được, các số ghi cách nhau 1 dấu cách trống.

e) Sắp xếp các số ở dòng 2 để được dãy không giảm, ghi kết quả vào tệp SAPXEP.OUT theo cấu trúc:

+ Dòng 1: Ghi dãy số đã được sắp xếp, các số ghi cách nhau 1 dấu cách trống.

f) Đếm số lượng các số nguyên tố ở dòng 2, ghi kết quả vào tệp NTO.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên k là số lượng số nguyên tố

+ Dòng 2: Ghi các số nguyên tố tìm được, các số ghi cách nhau 1 dấu cách trống.

HƠI DÀI NHMA MONG MẤY BẠN GIÚP CHỨ MÌNH CHỊU R

Cho một dãy N số nguyên Ai gồm các số a1, a2, a3, ..., an. Yêu cầu: Cho biết số K, là số lượng phần tử có giá trị trái dấu luân phiên dài nhất từ 2 phần tử trở lên. Dữ liệu vào: Cho trong tệp văn bản AMDUONG.INP có cấu trúc: + Dòng 1: Ghi số N (0 < N <=600000) + Dòng 2: Ghi một dãy N số ai, mỗi số cách nhau một khoảng trống (0 <> | ai | < 100000) Dữ liệu ra: Kết quả đưa ra trong tệp AMDUONG.OUT theo cấu trúc sau: + Dòng 1: Ghi duy nhất một số nguyên K 0<=K<=N) + Dòng 2: Ghi các phần tử trái dấu luân phiên dài nhất đầu tiên tìm thấy. Nếu có nhiều dãy thõa mãn thì in ra dãy đầu tiên tìm thấy. Còn nếu không tìm được dãy nào thì ghi số 0. 

cho em hỏi bài này em làm thế này có dúng không ạ ,mà khi em chạy chương trình thì lại báo lỗi là exitcode 205

Đề Bai:CHO DÃY SỐ NGUYÊN A1,A2,...AN,N<=1000

Ai<= 10 mũ 6 trong tệp VB:SONGUYEN.INP có cấu trúc như sau:

-dòng đầu tiên ghi số N

-dòng thứ hai ghi các giá trị ai mỗi số cách nhau 1 khoảng trống

tìm giá trị bé nhất của dãy số lưu vào tệp

program timmin;

const fi:='SONGUYEN.INP'

          fo:='SONGUYEN.OUT'

var A:array[1..1000] of longint;

   N,i:integer;

    min:integer;

    f,g:text;

begin

 assign(f,fi);

reset(f);

assign(g,fo);

 rewrite(g);

  begin 

read(f,N);

  for i:=1 to N do

  read(f,a[i]);

 min:=a[1];

 for i:'2 to N do

 if a[i]<min them min:=a[i];

  writeln(g,min);

end;

close(f);  close(g);

END.

1. Tệp Dulieu.txt có một dòng chứa các số nguyên (cách nhau khoảng trắng). Viết chương trình kiểm tra và đưa vào tệp Ketqua.txt những số nguyên dương chẵn trên cùng một dòng và cách nhau một khoảng trắng. 2.Viết chương trình nhập vào một mảng số nguyên, tínhvà đưa ra màn hình tổng của các số không âm có trong mảng.Yêu cầu sử dụng chương trình con để viết các thủ tục nhập, xuất mảng và hàm để tính tổng.