K
Khách

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.

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;

5 tháng 5 2018

Var <biến mảng>: array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

14 tháng 4 2017

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.banhqua

24 tháng 4 2017

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.banhqua

3 tháng 5 2019

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.

28 tháng 2 2017

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.

28 tháng 2 2017

haha

2 tháng 11 2019

1 2 2 4 3 8 11 8

Ý là a[1]/a[2] ; a[3]/a[4] ;.....

Bạn ghi lại đề chi tiết hơn nhé.

uses crt;

var a,b,cv,dt:real;

begin

clrscr;

write('dai='); readln(a);

write('rong='); readln(b);

if (a>0) and (b>0) and (a>=b) then

begin

cv:=(a+b)*2;

dt:=a*b;

writeln('chu vi la: ',cv:4:1);

writeln('dien tich la: ',dt:4:1);

end

else writeln('vui long nhap lai');

readln;

end.

4 tháng 11 2018

bạn dùng bài thực hành trong SGK, thay đổi hằng phi lại thành 22000 là được nhé