Ví dụ về mảng

Kiểm Tra bài cũ
1> Hãy cho biết đoạn chương trình sau dùng để đếm
số lẽ trong phạm vi N có những lỗi gì?
Write(‘Nhap vao N = ‘);Readln(N);
dem :=0;
i := 1;
While i<=N do
Begin
dem := dem + i;
i := i + 2;
End;
Writeln(‘So le = ‘,dem);
2> Với đoạn chương trình trên khi nhập N = 8 thì
dem sẽ được kết quả là bao nhiêu?
Program Tinh_So_Le;
Uses Crt;
Var I, dem, N : Integer;
Begin
Clrscr;
Write(‘Nhap vao N = ‘);Readln(N);
dem :=0;
i := 1;
While i<=N do
Begin
dem := dem + 1;
i := i + 2;
End;
Writeln(‘So le = ‘,dem);
Readln;
End.

Chương trình mẫu
Program Tinh_Nhiet_Do_Ngay;
Uses Crt;
Const max=100;
Type mang = ARRAY[1..max] Of Real;
Var nhietdo : mang;
dem, i, N : integer;
trung_binh, tong : real;
Begin
Clrscr;
Write('Nhap so ngay : '); Readln(N);
tong:=0;
For i:=1 to N do
begin
write('Nhap nhiet do ngay ',i,' : ');
Readln(nhietdo[i]);
tong:=tong+nhietdo[i];
end;
trung_binh:=tong/N;
dem:=0;
For i:=1 To N Do
If nhietdo[i]>trung_binh then dem:=dem+1;
Writeln('Nhiet do trung binh ',N,' ngay : ',trung_binh:0:1);
Writeln('So ngay co nhiet do cao hon nhiet do trung binh : ',dem);
Readln;
End.
Program Tinh_Nhiet_Do_Ngay;
Uses Crt;
Const max=100;
Type mang = ARRAY[1..max] Of Real;

Var nhietdo : mang;
dem, i, N : integer;
trung_binh, tong : real;
Begin
Clrscr;
Write('Nhap so ngay : '); Readln(N);
tong:=0;
For i:=1 to N do
begin
write('Nhap nhiet do ngay ',i,' : ');
Readln(nhietdo[i]);
tong:=tong+nhietdo[i];
end;
trung_binh:=tong/N;
dem:=0;
For i:=1 To N Do
If nhietdo[i]>trung_binh then dem:=dem+1;
Writeln('Nhiet do trung binh ',N,' ngay : ',trung_binh:0:1);
Writeln('So ngay co nhiet do cao hon nhiet do trung binh : ',dem);
Readln;
End.
BÀI TẬP

Hãy viết chương trình nhập vào dãy số
A gồm N số nguyên, tính tổng của của
dãy số đó và xuất ra màn hình?

Ví dụ 1:
Input: N = 3 và dãy {2, 5, 8}
Output: tong = 15

Cách khai báo
Const Max = 100;
Type Dayso = array[1..Max] Of integer;
Var a : Dayso;
ví dụ 2:

Bài toán tìm Min(giá trị nhỏ nhất) trong
dãy số nguyên gồm N số nguyên.
* Xác định bài toán:
- Input: Số nguyên N và dãy A={a
1
,a
2
..aN}
- Input: Min của day A.
* Ý tưởng:
Khởi tạo Min = a1.
Sau đó cho i chạy từ 2 đến N và so sánh
giá trị của ai với Min nếu a
i
< Min thì Min
nhận giá trị mới là a
i
.
Minh họa ý tưởng
N = 5, có năm quả bóng có kích thước khác
nhau chúng ta cùng tìm Min với chú mèo.
Min
Quả này
nhỏ nhất

Quả này
nhỏ hơn
Tìm ra
quả nhỏ
nhất rồi