Question

1)viết 3 câu lệnh khai báo biến mảng kiểu nguyên và kiểu thực với số phần tử lần lượt là 50,100,150.

2)viết chương trình nhập xuất một mảng số nguyên có n phần tử (n nhập từ bàn phím )

Answer 1

Câu 1:

var a: array[1..50] of integer;

var b: array[1..50] of real;

var c: array[1..100] of integer;

var d: array[1..100] of real;

var e: array[1..150] of integer;

var f: array[1..150] of integer;

Answer 2

Câu 2:

Program hotrotinhoc;

var a: array[1..32000] of integer;

i,n: integer;

begin

write('Nhap so phan tu : '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

write('Mang vua nhap la : ');

for i:=1 to n do write(a[i],' ');

readln

end.