Bài 1: Viết chương trình Nhập vào một dãy số gồm n phần tử, Tính tổng các phần tử có giá trị chẵn và in kết quả ra ra màn hình. Bài 2: Viết chương trình nhập vào hai xâu ký tự. kiểm ra và in ra màn hình xâu lớn hơn.

Câu 1:

uses crt;

var a:array[1..200]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

Câu 2:

program xau;
uses crt;
var x1,x2 : string;
begin clrscr;
writeln('Nhap xau ki tu thu nhat :'); readln(x1);
writeln('Nhap xau ki tu thu hai :'); readln(x2);
if length(x1) > length(x1) then writeln(x1) else
if length(x1) < length(x2) then writeln(x2) else
writeln(x1);
readln
end.

Câu 1: Viết chương trình Nhập vào một dãy số gồm n phần tử, Tính tổng các phần tử có giá trị chẵn và in kết quả ra ra màn hình.

uses crt;

var a:array[1..200]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

Bài 2: Viết chương trình nhập vào hai xâu ký tự. kiểm ra và in ra màn hình xâu lớn hơn.