Câu 1:
program tt;
uses crt;
var s,i: integer;
begin
clrscr;
s:=0;
for i:=2 to 12 do s:=s+i;
writeln('Tong cua cac so nguyen lien tiep tu 2 den 12 la: ',s);
readln;
end.
Câu 2:
program kk;
uses crt;
var n,i,dem: integer;
begin
clrscr;
write('Nhap n= ');
readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(a[i]);
if a[i] <> 0 then dem:=dem+1;
end;
writeln('So phan tu lon hon 0 la: ',dem);
readln;
end.