Bài 15: Thao tác với tệp

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

Ai giúp mình với

Nhập dãy số A gồm có N số nguyên. Ghi mảng A vừa nhập vào tệp có tên là MANG.TXT. Đọc dữ liệu từ tệp MANG.TXT, tings và đưa ra màn hình tổng các số chẵn trong mảng

Nguyễn Lê Phước Thịnh
3 tháng 5 2020 lúc 18:49

uses crt;

const fi='mang.txt';

var f1:text;

a,b:array[1..100]of integer;

i,n,dem,t:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do

write(f1,a[i]:4);

dem:=0;

while not eof(f1) do

begin

inc(dem);

read(f1,b[dem]);

end;

t:=0;

for i:=1 to dem do

if b[i] mod 2=0 then t:=t+b[i];

writeln('Tong cac so chan co trong mang la: ',t);

close(f1);

readln;

end.


Các câu hỏi tương tự
Ka Ka
Xem chi tiết
A3-37-Bùi Ngọc Phương Tr...
Xem chi tiết
Mĩ Lâm
Xem chi tiết
Hân Cao
Xem chi tiết
Hoài Ân 02 Lê Huỳnh
Xem chi tiết
Nguyễn Đức Anh Khoa
Xem chi tiết
Felix MC-Gamer
Xem chi tiết
Lê Văn Đức
Xem chi tiết
Nguyễn Thị In
Xem chi tiết