Ôn tập cuối năm

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Quỳnh Như

cho tệp songuyen.inp chứa dãy các số nguyên ( mỗi số cách nhau một dấu cách). Đọc dữ liệu từ tệp đã cho và

a) Tính tổng các số lẻ trong tệp và đưa kết quả lên màn hình.

b) tính tổng các số lẻ trong tệp và ghi kết quả vào tệp songuyen2

c) đưa ra màn hình các số lẻ trong tệp

Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:21

uses crt;

const fi='songuyen.inp'

fo='songuyen2.out'

var a:array[1..100]of integer;

i,n,t1:integer;

f1,f2:text;

begin

clrscr;

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do readln(f1,a[i]);

t1:=0;

for i:=1 to n do if a[i] mod 2<>0 then t1:=t1+a[i];

writeln(t1);

writeln(f2,t1);

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

close(f1);

close(f2);

readln;

end.


Các câu hỏi tương tự
Phan Tú
Xem chi tiết
Trần Văn Tuân
Xem chi tiết
M Ạ C H N H A
Xem chi tiết
37 Nguyễn Sơn Thủy 11A5
Xem chi tiết
Hoàng Văn long
Xem chi tiết
U Lan
Xem chi tiết
U Lan
Xem chi tiết
U Lan
Xem chi tiết
U Lan
Xem chi tiết