Question

viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b)dãy có bao nhiêu số lẻ tính tổng các số lẻ đó

Answer 1

program TongSoLeTrongDay;

var

      n, i, tong, dem: integer;

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

begin

      tong := 0;

      dem := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            tong := tong + a[i];

            if a[i] mod 2 <> 0 then

            begin

                  dem := dem + 1;

            end;

      end;

      writeln('Tong cac phan tu trong day la: ', tong);

      writeln('So phan tu le trong day la: ', dem);

      readln;

end.