BÀI TẬP 20: TÌM KIẾM CÁC CẶP 2 PHẦN TỬ GẦN NHAU CHIA HẾT CHO 10.

Nhập dãy số nguyên N (N được nhập vào từ bàn phím). Xuất ra màn hình

- Dãy số vừa nhập

- Tìm kiếm các cặp hai số gần nhau có tổng chia hết cho 10. Thay thế hai số đó bằng tổng của chúng.

CODE THAM KHẢO:

program Tim_cap_so_chia_10;

uses crt;

var A:array[1..100] of integer;

    i,n,k: integer;

begin

    clrscr;

    //Nhap so luong phan tu

    write('Nhap N = '); readln(n);

    //Nhap gia tri cho tung phan tu mang A

    for i:=1 to n do 

        begin

            write('A[',i,']= ');

            readln(A[i]);

        end;

    write('Day so vua nhap la: ');

    for i:=1 to n do write(A[i],' '); writeln;

    for i:=2 to n do

    if (A[i-1]+A[i]) mod 10 = 0 then

    begin

        k:=A[i-1]+A[i];

        A[i-1]:=k;

        A[i]:=k;

    end;

    write('Day so sau khi thay the: ');

    for i:=1 to n do write(A[i], ' ');

    readln;

end.