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, a1
,a2
, …, an
, x,y-
B2: i 1-
B3: nếu ai
+ ai+1
chia hết cho 10 thì ai
và ai+1
nhận giá trị mới là tổng của chúng.-
B4: ii+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