var S: integer; i: byte; a: array[1..20] of integer; begin clrscr; S:=0; write(‘Nhap vao phan tu thu i: ‘); readln(a[i]); for i:=1 to 20 do begin if (a[i] mod 5 = 0) and (i >0) then S:=S+a[i]; write(‘Tong la: ‘,S:3); end; readln; end. _________________________________________________ Chỉ ra và sửa lỗi sai.

Các câu hỏi liên quan