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.
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
uses crt;
var a:array[1..10]of integer;
n,i,t:integer;
begin
clrscr;
n:=10;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
NHƯ Z NHA !! :v
Khai báo mảng có rất nhiều loại: mảng 1 chiều,mảng 2 chiều, mảng 3 chiều,...
Ở đây tui chỉ nêu mảng 1 chiều và 2 chiều mà thôi :)
Mảng 1 chiều:
+Cách 1: Khai báo trực tiếp: var <tên biến mảng>:array[kiểu chỉ số]of<kiểu phần tử>;
+Cách 2: Khai báo gián tiếp: type <tên kiểu mảng>=array[kiểu chỉ số]of<kiểu phần tử>;
var <tên biến mảng>:<tên kiểu mảng>
VD: C1: var Nhietdo:=array[1..50]of real;
C2: type KM1=array[1..50]of real;
var Nhietdo: KM1;
Mảng 2 chiều:
+Cách 1: Khai báo trực tiếp: var <tên biến mảng>:array[kiểu chỉ số hàng,kiểu chỉ số cột]of<kiểu phần tử>;
+Cách 2: Khai báo gián tiếp: type <tên kiểu mảng>=array[kiểu chỉ số hàng,kiểu chỉ số cột]of<kiểu phần tử>;
var <tên biến mảng>:<tên kiểu mảng>
VD: C1: var B:=array[1..9,1..10]of integer;
C2: type KM1=array[1..9,1..10]of integer;
var B: KM1
==> lợi ích : rút gọn việc viết chương trình, có thể sử dụng câu lệnh lặp để thay nhiều câu lệnh, giúp tiết kiệm rất nhiều thời gian và công sức viết trương trình :D
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
readln;
end.
uses crt;
var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}
A:array[1..1000] of longint;
begin
clrscr;
Write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
Write('Cac so nguyen to co trong mang la: ');
for i:=1 to n do
begin
dem:=0;
for j:=2 to A[i]/2 do
if A[i] mod j=0 then dem:=dem+1;
if dem=0 then write(A[i],'; ');
end;
end.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
program sodiemcaonhat; var i,max,n:integer; a:array [1..10000] of integer; begin write('nhap so phan muon nhap='); read(n); for i:=1 to n do begin write('diem thu',i,'='); read(a[i]); end; max:=a[1]; for i:=1 to n do begin if max < a[i] then max:=a[i]; end; write('so diem cao nhat la=',max); readln end.
program sodiemcaonhat;
var i,max,n:integer;
a:array [1..10000] of integer;
begin
write('nhap so phan muon nhap='); read(n);
for i:=1 to n do begin
write('diem thu',i,'='); read(a[i]);
end;
max:=a[1];
for i:=1 to n do begin
if max < a[i] then max:=a[i];
end;
write('so diem cao nhat la=',max);
readln
end.
ct1:
program (tự đặt tên);
uses crt;
var max,i,n:integer;
begin
clrscr;
max:=0; i:=1;
while i<=10 do
begin
write('n',i,'='); readln(n);
if n>max then max:=n;
i:=i+1;
end;
write('so lon nhat la:',max);
readln
end.
ct2:
program bt;
uses crt;
var a:array[1..1000] of integer;
max,i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to 10 do
if a[i]>max then max:=a[i];
write('so lon nhat trong cac so la:',max);
readln
end.
Sự khác nhau giữa hai ct:
- Khác nhau về cách khai báo
- Khác nhau ve cách trình bày
Bạn hãy chạy thử chương trình trước nha 
- Cách khai báo mảng: Có 2 cách khai báo:
var <tên mảng>:array[kiểu chỉ số] of <kiểu phần tử>;
a:array[1..100] of integer;vd:
b,c:array[1..250] of integer;
- Khai báo gián tiếp:
type <tên kiểu mảng>=array[kiểu phần tử] of <kiểu chỉ số>; var <tên mảng>:<tên kiểu mảng>;vd:
type mang=array[1..100] of integer;
var a,b,c:mang;