Bài 11. Kiểu mảng

Tiết 23:
KIỂU MẢNG(T2)
Bài cũ
Câu hỏi:
a, Nêu các cách khai báo biến mảng 1 chiều?
b, Khai báo biến mảng 1 chiều cho dãy số nguyên gồm 100 phần tử:


Bài toán:Tìm giá trị lớn nhất của dãy số nguyên?
+ Đầu tiên gán giá trị a1 cho biến Max .
+ Sau đó lần lượt so sánh các số a2,...,an của dãy số với Max. Nếu a i > Max thì ta gán a i cho Max.
Ý tưởng: Tìm giá trị lớn nhất của dãy số nguyên
Input: + Số lượng phần tử của dãy: N;
+ Giá trị các phần tử của dãy: a1, a2,..,an;
Output: Giá trị lớn nhất(max) của dãy
Thuật toán:
Tìm giá trị lớn nhất trong dãy số
Bước 1: Nhập N và dãy a1, a2, …, an;
Bước 2. Max← a1; i ← 1;
Bước 3. Nếu i >N thì đưa ra giá trị max rồi kết thúc;
Bước 4. Nếu ai > Max thì Max ← ai ;
Bước 5. i← i +1 rồi quay lại bước 3

Chương trình tìm giá trị lớn nhất:
Var i, n, Max: integer;
A: array[1..100] of integer;
Begin
Write (‘ Nhap so luong phan tu cua day N=’); Readln(n);
For i: =1 to n do
Begin
Write (‘ a [‘,I,’]=’); readln(a [i]);
End;
Max: = a [1];
For i:= 2 to n do
if Max Write (‘ So lon nhat la Max= ’, Max);

End.

Min: = a [1];
For i:= 2 to n do
if Min>a[i] then Min: = a [i];

Write (‘ So lon nhat la Min= ’, Min);
Tìm giá trị nhỏ nhất
Chương trình tìm số lớn nhất và nhỏ nhất
Var i, n, Max, Min: integer;
A: array[1..100] of integer;
Begin
Write (‘ Nhap so luong phan tu cua day N=’); Readln(n);
For i: =1 to n do
Begin
Write (‘ a [‘,I,’]=’); readln(a [i]);
End;
Max: = a [1]; Min:= a[1];
For i:= 2 to n do
Begin
if Maxa[i] then Min: = a [i];
End;
Write (‘ So lon nhat la Max= ’, Max);
Write (‘ So lon nhat la Min= ’, Min);
End.
Chương trình tìm giá trị lớn nhất của dãy và đưa ra chỉ số phần tử đạt giá lớn nhất:
Var i, n, Max: integer;
A: array[1..100] of integer;
Begin
Write (‘ Nhap so luong phan tu cua day N=’); Readln(n);
For i: =1 to n do
Begin
Write (‘ a [‘,I,’]=’); readln(a [i]);
End;
Max: = a [1]; csmax:=1;
For i:= 2 to n do
if MaxBegin
Max: = a [i]; csmax:=i; end;
Write (‘ Gia tri cua phan tu max ’, Max);
Write(‘Chi so cua phan tu max’, csmax);
Readln;
End.