Tệp và thao tác với tệp

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

Mọi người giúp em giải 2 bài này được không ạ.

1. Viết chương trình nhập một mảng số nguyên 1 chiều gồm n nguyên tử. Tính tổng các phân tử chia hết cho 2 trong mảng. In kết quả ra màn hình.( biết n là số nguyên và nhập từ bàn phím)

2. Nhập một xâu từ bàn phím xóa ký tự thứ 2 và thứ 3 của xâu ghi kết quả vào tệp BT.TXT.

Nguyễn Lê Phước Thịnh
7 tháng 7 2020 lúc 10:44

Bài 1:

uses crt;

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

n,i,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

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

writeln('Tong cac so chia het cho 2 trong day la: ',t);

readln;

end.

Bài 2:

uses crt;
const fi='bt.txt';
var st:string;
f:text;
i:integer;
begin
clrscr;
assign(f,fi); rewrite(f);
write('Nhap xau:'); readln(st);
for i:=1 to length(st) do
if (i<>2) and (i<>3) then write(f,st[i]);
close(f);
readln;
end.


Các câu hỏi tương tự
Quyền
Xem chi tiết
Khoa Nhật
Xem chi tiết
Haibanh
Xem chi tiết
Haibanh
Xem chi tiết
Lê Thị Ngọc Anh
Xem chi tiết
Enter Until
Xem chi tiết
huyenphuong123456
Xem chi tiết
Namn
Xem chi tiết
Nguyễn Giang
Xem chi tiết