Cho khai báo mảng và đoạn chương trình như sau:Var a : array0..50 of real ;k:= 0

* Hướng dẫn giải

Var a : array[0..50] of real ; {khai báo mảng a}
k := 0 ; {gán chỉ số 0 cho k}
for i := 1 to 50 do {vòng lặp chạy từ 1 đến 50}
if a[i] > a[k] then k := i ; {kiểm tra từ phần tử thứ 2 đến phần tử 50 so sánh với phần tử đầu và đưa ra chỉ số lớn nhất}