uses crt; var d:word; s,k:string; begin clrscr; readln(s); s:=s+' '; while pos(' ',s)<>0 do begin k:=copy(s,1,pos(' ',s)-1); if length(k)>0 then inc(d); delete(s,1,pos(' ',s)); end; writeln(d); readln; end.
uses crt; var i,n:longint; a:array[1..1000000] of longint; begin clrscr; write('Nhap so phan tu: ');readln(n); write('Nhap mang: '); for i:=1 to n do read(a[i]); writeln(n); readln; readln; end.
*Không nhập số phần tử:
uses crt; var i,n:longint; s:string; begin clrscr; write('Nhap mang: '); readln(s); s:=' '+s+' '; for i:=1 to length(s)-1 Do if (s[i]=' ')and(s[i+1]<>' ') then inc(n); writeln(n); readln; end.
