TIM KIẾM CÁC C P 2 PHẦN TỬ GẦN NHAU CO TỔNG CHIA HẾT CHO 10....

11.

Tim kiếm các c p 2 phần tử gần nhau co tổng chia hết cho 10. Thay thế các phần tử đo băng tổng của

ă

chúng.

Input A = 2 4 6 14 16 24Output A = 1 10 10 30 30 24 Xác định bài toán:- Input: mảng a, giá trị k- Output: mảng a sau khi thay thế Thuật toán:

-

B1Nhập n, a

1

,a

2

, …, a

n

, x,y

-

B2: i 1

-

B3: nếu a

i

+ a

i+1

chia hết cho 10 thì a

i

và a

i+1

nhận giá trị mới là tổng của chúng.

-

B4: ii+1;- B5: nếu i > n, đưa ra mảng sau khi thay thế và kết thúc.- B6: quay lại bước 3. Chương trình: program thaythe;uses crt;var a:array[1..15] of integer; n,i:byte; x,y: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; write('mang moi nhap la: '); for i:=1 to n do write(a[i]:4); writeln; if (a[i] +a[i+1]) mod 10 = 0 then begin a[i]:=a[i]+a[i+1]; a[i+1]:=a[i]; end; write('mang sau khi thay the: ');readln