Bài 1 Cho dãy a gồm n số: a) Tổng giá trị các số chia hết cho k b) Tạo 1 mảng b mới sao cho b = b(i-1) - a(i) c) Xóa số lẻ mảng a Bài 2 Nhập 2 xâu a) Đếm xem xâu 1 xuất hiện trong xâu 2 mấy lần b) Lập xâu 3 chứa các chữ số của xâu hai, tính tổng các chữ số. Hiện em đã giải được câu a bài 1 var A: array[1..n] of integer; n,i,T: integer; begin writeln('Nhap n'); Readln(n); writeln('Nhap k'); Readln(k); T:=0; For i:= 1 to n do Begin write('Nhap A[',i,']=');Readln(A); If A mod k = 0 then T:= T+A; End; writeln('Tong cac so chia het cho k la',T); Mọi người dò giùm em ý a và giải đáp cho em các ý còn lại được không ạ? Cảm ơn mọi người!
Bài 2:a,b Mã: Var s1,s2,s3:string; i,d,code,n,t:integer; Begin readln(s1);readln(s2); Chuẩn hóa 2 xâu If length(s2)>=length(s1) then For i:=1 to length(s2) do If s1=Copy(s2,i,length(s1)) then d:=d+1; write('..',d); s3:=''; For i:=1 to length(s2) do if s2[i] in ['0'..'9'] then s3:=s3+s2[i]; For i:=1 to length(s3) do Begin Val(s3[i],n,code); t:=t+n; end; write('..',n); readln End. Bài 1: c. Mã: For i:=1 to n do if a[i] mod 2<>0 then begin For k:=i to n-1 do a[k]:=a[k+1]; n:=n-1; end; Bài 1c mình chỉ làm mỗi thuật toán thôi, bn tự khai báo và in vào nha. Rồi kt lại câu 2 luôn, mình làm vội nên có thể có lỗi ở đó
Cái này trong sgk có bài tương tự bạn ạ. Đề trong đó là tạo mảng B trong đó B là tổng của i phần tử đầu tiên của a. Nhưng dòng lệnh mẫu trong đó là b = b(i-1) + a(i)