Bài 9: làm việc với dãy số

Ví dụ 5: kiếm tìm những học sinh có điểm Tin đạt nhiều loại giỏi

For t := 1 to lớn 40 bởi if DiemTin > 8.0 then writeln("Loai Gioi");

Sử dụng biến mảng cùng câu lệnh lặp (thường là For…do) giúp cho việc viết công tác được ngắn ngọn và tiện lợi hơn.

1.3. Tìm giá bán trị lớn nhất và giá trị nhỏ dại nhất của dãy số

Ví dụ 6: Viết công tác nhập N số nguyên từ keyboard và in ra màn hình hiển thị số nhỏ tuổi nhất với số bự nhất. N cũng được nhập từ bàn phím.

Ý tưởng:Trước hết ta khai báo phát triển thành N nhằm nhập số những số nguyên sẽ tiến hành nhập vào. Tiếp đến khai báo N biến đổi lưu những số được nhập vào như thể các thành phần của một vươn lên là mảng A. Ko kể ra, buộc phải khai báo một biến hóa i làm vươn lên là đếm cho các lệnh lặp và trở thành Max nhằm lưu số phệ nhất, Min để lưu số nhỏ tuổi nhất.

Chương trình mẫu:

program MaxMin;

uses crt;

Var

i, n, Max, Min: integer;

A: array<1..100> of integer;

Phần thân lịch trình sẽ giống như dưới đây

Begin

clrscr;

write("Hay nhap vì dai cua day so, = ");

readln(n);

writeln("Nhap cac phan tu cua day so: ");

For i:=1 khổng lồ n do

Begin

write("a<",i,">="); readln(a);

End;

Max:=a<1>;

Min:=a<1>;

For i:=2 lớn n do

Begin

if Max

Max:=a;

if Min>a then

Min:=a

End;

write("So lon nhat la Max = ",Max);

write("; So nho nhat la Min = ",Min);

readln;

End.

Xem thêm: Các Bài Viết Số 5 Lớp 7 Đề 1 : Chứng Minh Nếu Còn Trẻ Không Chịu Khó Học Tập

Trong lịch trình này, bọn họ hãy chú ý một số điểm sau: Số về tối đa các phần tử của mảng nên được khai báo bằng một số cụ thể (Ở đó là 100).