Question

Đã trả lời bởi chuyên gia

Answer 1

Để tạo mảng A gồm n số nguyên và đếm số lượng phần tử trong mảng A có giá trị bằng 100, chúng ta có thể sử dụng mã chương trình sau:

```
program CountElementsInArray;

var
A: array[1..300] of integer;
n, i, count: integer;

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

// Nhap cac phan tu vao mang A
for i := 1 to n do
begin
write('Phan tu thu ', i, ': ');
readln(A[i]);
end;

// Dem so luong phan tu co gia tri bang 100
count := 0;
for i := 1 to n do
begin
if (A[i] = 100) then
count := count + 1;
end;

writeln('So luong phan tu co gia tri bang 100 trong mang la: ', count);
end.
```

Trong chương trình này, chúng ta khai báo một mảng A có kích thước tối đa là 300, và biến n để lưu số phần tử của mảng. Sau đó, chúng ta sử dụng một vòng lặp for để nhập các phần tử vào mảng A.

Tiếp theo, chúng ta sử dụng một biến count để đếm số lượng phần tử trong mảng A có giá trị bằng 100. Traversing (duyệt) qua các phần tử của mảng A, nếu giá trị của phần tử bằng 100 thì biến count sẽ được tăng lên 1.

Cuối cùng, chúng ta hiển thị số lượng phần tử trong mảng A có giá trị bằng 100 bằng cách sử dụng câu lệnh writeln().

...Xem thêm

Answer 2