3.0 ĐIỂMHỎI VIẾT CHƯƠNG TRÌNH TÌM PHẦN TỬ LỚN NHẤT CỦA DÃY SỐ NGUYÊN...

Câu 5: 3.0 điểmHỏi Viết chương trình tìm phần tử lớn nhất của dãy số nguyên dương có 20 phầntử.Program timmax;0.5var A : array[1..20] of integer;i, n ,max, csmax : integer;BEGINwrite('Nhap N= '); readln(n); For i := 1 to N do begin writeln(' Phan tu thu ', i ,' = '); readln(A[i]); end;Trả lời max:= A[1]; csmax:=1; For i := 2 to N do If A[i] > max then Begin0.25Max:=A[i]; csmax:= i;End; writeln('max=’, max, ‘csmax=’, csmax);readln;END. - HẾT -