Bài 1:
program bai_giai;
uses crt;
var A:array[1..100] of integer;
n,i,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(A[i]);
t:=0;
for i:=1 to n do
if A[i] mod 2=1 then t:=t+A[i];
write(t);
readln;
end.
Bài 2:
program bai_giai;
uses crt;
var st,ch:string;
begin
clrscr;
readln(st);
readln(ch);
while pos(ch,st)<>0 do delete(st,pos(ch,st),length(ch));
write(st);
readln;
end.
Bài 3:
program bai_giai;
uses crt;
var f:text;
A:array[1..100] of integer;
n,i:integer;
begin
clrscr;
Assign(f,'ketqua.txt'); rewrite(f);
readln(n);
for i:=1 to n do read(A[i]);
for i:=1 to n do write(g,A[i],' ');
readln; close(f);
end.
Đối với bài 1 và bài 3 phải nhập số phần tử n rồi mới nhập mảng
