Cho một số nguyên dương n <= 12 và mảng A gồm N số nguyên. Tính tổng các số chẵn trong mảng A. + Dữ liệu vào lấy ở file text.int + Dữ liệu ra lấy ở fi

Cho một số nguyên dương n <= 12 và mảng A gồm N số nguyên. Tính tổng các số chẵn trong mảng A. + Dữ liệu vào lấy ở file text.int + Dữ liệu ra lấy ở file text.out

0 bình luận về “Cho một số nguyên dương n <= 12 và mảng A gồm N số nguyên. Tính tổng các số chẵn trong mảng A. + Dữ liệu vào lấy ở file text.int + Dữ liệu ra lấy ở fi”

  1. var f1, f2: text;

          a: array[1..12] of integer;

          i, n: byte;

          tc: longint;

    Begin

        Assign(f1, ‘text.int’); reset(f1);

        Assign(f2, ‘text.out’); rewrite(f2);

        Readln(f1, n); tc:=0;

        For i:=1 to n do

             Begin

                 read(f1, a[i]);

                 If a[i] mod 2=0 then tc:=tc+a[i];

             End;

         Write(f2, tc);

         Close(f1); close(f2);

    End.

    Bình luận

Viết một bình luận