Ai học giỏi tin giúp em với ạ
Câu2. cho một dãy N (0<=N<=50), viết chương trình
Đưa ra màn hình dãy vừa nhập trên 1 dòng
Đưa ra màn hình các số chẵn của dãy
Đưa ra màn hình tổng các số lẻ chia hết cho 3
Câu3. Cho xâu A. Tìm các chữ viết hoa của xâu rồi đưa ra màn hình
program oken;
uses crt;
var a: array [1..100] of integer;
i,n,tong:longint;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
end;
for i:=1 to n do
write(a[i]),’ ‘);
tong:=0;
writeln;
for i:=1 to n do
if (a[i] mod 2=0) then write(a[i],’ ‘)
else
if (a[i] mod 3=0) then tong:=tong+a[i];
writeln(‘tong cac so chia het cho 3 trong mang: ‘,tong);
readln;
end.