st:='
Tin hoc va xa hoi'; dem:=0; For i:=1 to length(st) do Begin if st[i]=' ' then dem:=dem+1; st[i]:=upcase(st[i]); End; Writeln(dem);writeln(st);Câu 2 (3điểm) Viết chương trình nhập từ bàn phím số nguyên dương N (N<100) và dãy A gồm N số nguyên A1, A2,…, An. Hãy kiểm tra xem dãy số[r]