Bài 1: Hãy viết các câu lệnh khai báo theo yêu cầu sau:
A. Khai báo mảng A gồm 100 phần tử thuộc kiểu dữ liệu số thực.
B. Khai báo mảng B gồm 20 phần tử thuộc kiểu dữ liệu số nguyên.
C. Phần tử thứ 7 của mảng A được gán giá trị là 8.
D. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên.
Bài 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài của dãy cũng được nhập từ bàn phím.
Bài 3: Viết chương trình nhập điểm kiểm tra học kỳ môn Tin cho N học sinh và in ra màn hình. Với N và điểm kiểm tra được nhập từ bàn phím( sử dụng biến mảng).
Bài 4: Viết chương trình:
a) Nhập vào mảng A có n phần tử.
b) In mảng A đã nhập ra màn hình.
c) In ra màn hình các số dương.
d) Tính tổng và giá trị trung bình của các số dương trong mảng.
Bài 5: Viết chương trình:
a) Nhập vào mảng A có n phần tử.
b) In mảng A đã nhập ra màn hình.
c) In ra các số chẵn của mảng.
d) In ra các số lẽ của mảng.
Program ct;
Var i,n,so le, so chan:integer;
B:Array[1..n] of integer;
Begin
Write('n=');Readln(n);
For i:=1 to n do begin Write('B[',i,']=');
Readln(B[i]);
End;
For i:=1 to n do Begin
if B[i] mod 2 <>0 then writeln('so le , ' );
If B[i] mod 2=0 then writeln('so chan ,' );
End;
Readln
End.
Lời giải:
Bài 1 :
a) var A : array[1..100] of real ;
b) var B : array[1..20] of integer ;
c) A[7] := 8 ;
Bài 2 :
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
readln
end.
Bài 3 :
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('Co tat ca so ban hoc sinh la'); readln(n);
write('Nhap diem mon tin cua cac ban');
for i:= 1 to n do
begin
write('Ban thu ',i,':'); readln(a[i]);
end;
readln
end.
Bài 4 : a,b giống bài 3
c)
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n,tong : integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0;
for i:= 1 to n do
if a[i] > 0 then tong:=tong+1;
write('Ket qua la',tong);
readln
end.
Bài 5: a và b tương tự bài 3
c+d )
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
c) if i mod 2= 0 then write('Cac so chan cua mang la:',i);
d) if i mod 2= 1 then write('Cac so le cua mang la:',i);
readln
end.
