Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Var <biến mảng>: array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
uses crt;
var X:string;
demtu,demdc,i:word;
begin
clrscr;
write('nhap cau van X:');readln(X);
writeln('so ki tu la:',length(X));
demtu:=1;
for i:=1 to length(X)-1 do
if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;
writeln('so tu la:',demtu);
demdc:=0;
for i:=1 to length(X) do
if X[i]=' ' then demdc:=demdc+1;
writeln('so dau cach la:',demdc);
readln;
end.
bài này mới đúng nè bạn:
uses crt;
var X:string;
demtu,demdc,i:word;
begin
clrscr;
write('nhap cau van X:');readln(X);
writeln('so ki tu la:',length(X));
X:=X+' ';
demtu:=0;
for i:=1 to length(X)-1 do
if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;
writeln('so tu la:',demtu);
delete(X,length(X),1);
demdc:=0;
for i:=1 to length(X) do
if X[i]=' ' then demdc:=demdc+1;
writeln('so dau cach la:',demdc);
readln;
end.
Chào bạn!
Câu hỏi của bạn nếu là làm trên giấy thì cần có chương trình để mô tả tìm hiểu các lệnh.
Còn nếu là thực hành thì bạn tự thực hành nhé.
Chúc bạn học tốt.
uses crt;
var j,tg,s,max,min,i,n:longint;
a:array[1..19] of longint;
s1:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=1 to n do
write(a[i],' ');writeln;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln(‘Gia tri trung binh cua cac phan tu la: ‘,s1:0:0);
min:=a[1];max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
write('Phan tu lon nhat la: ',max,' ','Phan tu nho nhat la: ',min); writeln;
for i:=1 to n do
if (a[i]<>0) and (a[i] mod 2=0) then write(a[i],' ');
readln
end.
Cách khai báo biến mảng:
Var <biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
Thành phần:
var, array, of: từ khóa
chỉ số đầu, chỉ số cuối: thường là số nguyên
kiểu dữ liệu thường là kiểu số nguyên hoặc số thực
Ví dụ:
var a:array[1..100]of integer;