Bài 4: (4,0 điểm)

Viết chương trình nhập một xâu kí tự ST từ bàn phím và một dãy kí tự CH. In ra màn hình xâu ST sau khi xóa hết các kí tự CH trong xâu đó.

Ví dụ:

 Nhập xâu ST: abcghkm

 Nhập xâu CH: bcg

 Kết quả: ahkm

 

Bài 5: (3,0 điểm)

Viết chương trình nhập một dãy số nguyên. Sau đó in ra màn hình các số nguyên dương trong dãy và tính tổng các số nguyên âm.

vd:

N=4     -255; 320; -5; 1000

Các số nguyên dương: 320; 1000    

tổng: -260

 

Bài $4$:

var s1,ch,result:string;
  i,j:longint;;
  ok:boolean;
begin
  readln(s1);
  readln(s2);
  result:='';
  for i:=1 to length(s1) do
  begin
    ok:=false;
    for j:=1 to length(s2) do
    begin
      if s1[i]=s2[j] then
      begin
        ok:=true;
        break;
      end;
    end;
    if not ok then
      s3:=s3+s1[i];
  end;
  writeln(s3);
end.

Bài $5$:

var n,n1,s:int64;
    i:longint;
begin
  s:=0;
  readln(n);
  for i:=1 to n do
  begin
    read(n1);
    if n1<0 then
    begin
      s:=s+n1;
    end
    else
    begin
       write(n1, ' ');
    end;
  end;
  writeln;
  writeln(s);
end.

# Bài 4
ST=input("Nhập xâu ST: ")
CH=input("Nhập xâu CH: ")
for i in CH:
    ST.replace(i,'')
print("Kết quả:",ST)
# Bài 5
n=int(input())
a=list(map(int,input().split()))
for i in a:
    if i>0:
        print(a,end=" ")
print(sum(a))