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, a1
,a2
, …, an
- B2: i 1, s 0,- B3: nếu ai
chia hết cho 5 thì s s + ai
-
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.