Giúp em 2 câu này với ạ
1. cho mảng một chiều gồm 10 phần tử thuôc kiều số nguyên hãy viết chương trình tìm các phần tử trong mảng chia hết cho 2 và 11 sau đó ghi vào xâu
2. cho mảng một chiều gồm 10 phần tử thuôc kiều kí tự hãy viết chương trình tìm trong mảng các phần tử A, a hoặc B sau đó ghi vào xâu
Bài 1:
Program HOC24;
var a: array[1..10] of integer;
i,n: integer;
s,st: string;
begin
for i:=1 to 10 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
if (a[i] mod 2=0) and (a[i] mod 11=0) then
begin
str(a[i],s);
st:=st+s+#32;
end;
end;
write(st);
readln
end.
Bài 2:
Program HOC24;
var a: array[1..10] of char;
i: integer;
st: string;
begin
for i:=1 to 10 do
begin
write('Nhap ki tu thu ',i,' : '); readln(a[i]);
if (a[i]='A') or (a[i]='a') or (a[i]='B') then st:=st+a[i]+#32;
end;
write(st);
readln
end.