TÍNH TỔNG CÁC SỐ NGUYÊN DƯƠNG CHIA HẾT CHO 5INPUT A = 1 5 8 4...

7.

Tính tổng các số nguyên dương chia hết cho 5

Input A = 1 5 8 4 10Output S = 15 Xác định bài toán:- Input: mảng a- Output: tổng các phần tử trong mảng chia hết cho 5 Thuật toán:- B1Nhập n, a

1

,a

2

, …, a

n

- B2: i 1, s  0,- B3: nếu a

i

chia hết cho 5 thì s  s + a

i

-

B4: i i + 1- B5: nếu i > n, đưa ra S và TB rồi kết thúc.- B6: quay lại bước 3. Chương trình: program tongboi5;uses crt;var n,i:byte; a:array[1..15] of integer; s:integer;beginclrscr; write('nhap so luong phan tu: '); readln(n); for i:=1 to n do begin write('nhap phan tu a[',i,'] = '); readln(a[i]); end; s:=0; for i:=1 to n do if a[i] mod 5 = 0 then s:=s+a[i]; writeln('tong cac phan tu chia het cho 5 la: ',s);readlnend.