câu 1:

* cú pháp khai báo mảng:

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

* cú pháp gán giá trị cho 1 phần tử trong mảng:

<tên biến mảng>[<chỉ số>]:=<giá trị cần gán>; 

a) var a: array [1..100] of real;

b) var b: array [1..20] of integer;

c) a[7]:=8;

d) var dayso: array [1..50] of integer;

câu 2:

* cú pháp chung: var <tên biến mảng>: array [<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

+ var X: array [10, 13] of integer;

lỗi: [10..13] chứ không phải [10,13]

(giữa <chỉ số đầu> và <chỉ số cuối> là dấu ".." chứ không phải ",")

sửa: var X: array [10..13] of integer;

+ var X: array [5..10.5] of real;

lỗi: [5..11] chứ không phải [5..10.5]

(<chỉ số cuối> là kiểu số nguyên chứ không phải kiểu số thực)

sửa: var X: array [5..11] of real;

+ var X: array [3.4..4.8] of integer;

lỗi: [3..5] chứ không phải [3.4..4.8]

(<chỉ số đầu> và <chỉ số cuối> là kiểu số nguyên chứ không phải kiểu số thực)

sửa: var X: array [3..5] of real;

+ var X: array [4..10] of integer;

khai báo đúng

câu 3: 

a) 

uses crt;
var a: array [1..1000] of integer;
i,n: integer;
begin
clrscr;
write('nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('cac phan tu vua nhap la:');
for i:=1 to n do write(a[i]:4);
writeln;
write('cac phan tu duong:');
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
write('cac phan tu am:');
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
readln;
end.

b)

uses crt;
var b: array [1..1000] of integer;
i,n: integer;
begin
clrscr;
write('nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,': '); readln(b[i]);
end;
write('cac phan tu vua nhap la:');
for i:=1 to n do write(b[i]:4);
writeln;
write('cac phan tu chan:');
for i:=1 to n do
if b[i] mod 2 = 0 then write(b[i]:4);
writeln;
write('cac phan tu le:');
for i:=1 to n do
if b[i] mod 2 <> 0 then write(b[i]:4);
readln;
end.

c)

uses crt;
var c: array [1..1000] of integer;
i,n,s1,s2,d1,d2: integer;
begin
clrscr;
write('nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,': '); readln(c[i]);
if c[i]>0 then 
begin
s1:=s1+c[i];
d1:=d1+1;
end;
if c[i]<0 then 
begin
s2:=s2+c[i];
d2:=d2+1;
end;
end;
write('cac phan tu vua nhap la:');
for i:=1 to n do write(c[i]:4);
writeln;
writeln('tong cac phan tu duong trong mang la: ',s1);
writeln('trung binh cong cac phan tu duong trong mang la: ',s1/d1:3:1);
writeln('tong cac phan tu am trong mang la: ',s2);
writeln('trung binh cong cac phan tu am trong mang la: ',s2/d2:3:1);
readln;
end.

d)

uses crt;
var min,max,i,n: integer;
d: array [1..1000] of integer;
begin
clrscr;
write('nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,': '); readln(d[i]);
end;
max:=d[1]; min:=d[1];
for i:=2 to n do
begin
if max<d[i] then max:=d[i];
if min>d[i] then min:=d[i];
end;
write('cac phan tu vua nhap la:');
for i:=1 to n do write(d[i]:4);
writeln;
writeln('phan tu lon nhat trong mang la: ',max);
writeln('phan tu be nhat trong mang la: ',min);
readln;
end.