Question

Em hãy viết lệnh tìm giá trị lớn nhất của 40 phần tử trong mảng A

Answer 1

Var a:array:[1..40] of real;

i:integer;

max:real;

Begin

For i:=1 to 40 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

For i:=1 to 40 do

If a[i]>max then max:=a[i];

Write('So lon nhat la ',max:10:2);

Readln

End.

Answer 2

Để tìm giá trị lớn nhất của 40 phần tử trong mảng A, ta có thể sử dụng vòng lặp để duyệt qua từng phần tử trong mảng và so sánh với giá trị lớn nhất hiện tại. Sau đó, lưu giá trị lớn nhất vào biến max_value.

Ví dụ:

```
A = [5, 3, 8, 2, 9, 1, 6, 4, 7, 0, 11, 13, 15, 12, 10, 14, 17, 16, 19, 18, 21, 20, 23, 22, 25, 24, 27, 26, 29, 28, 31, 30, 33, 32, 35, 34, 37, 36, 39, 38]

max_value = A[0] # Giả sử giá trị lớn nhất ban đầu là phần tử đầu tiên trong mảng

for i in range(1, 40): # Duyệt qua từng phần tử trong mảng
if A[i] > max_value: # Nếu phần tử hiện tại lớn hơn giá trị lớn nhất hiện tại
max_value = A[i] # Cập nhật giá trị lớn nhất

print("Giá trị lớn nhất trong mảng A là:", max_value)
```

Kết quả:

```
Giá trị lớn nhất trong mảng A là: 39
```