Question

Cho 1 dãy số có tối đa là 200 phần tử thuộc kiểu số nguyên ,hãy tìm tổng các số lẻ của n phần tử được nhập từ bàn phím.Tính tích các phần tử có giá trị là số chẵn in kết quả ra màn hình

Answer 1

program BaiTap;

var

     arr: array[1..200] of integer;

     n, i, sumOfOdd, productOfEven: integer;

begin

     writeln('Nhap so phan tu: ');

     readln(n);

     sumOfOdd := 0;

     productOfEven := 1;

     for i := 1 to n do

     begin

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

          readln(arr[i]);

          if arr[i] mod 2 = 1 then

               sumOfOdd := sumOfOdd + arr[i]

          else if arr[i] mod 2 = 0 then

               productOfEven := productOfEven * arr[i];

     end;

     writeln('Tong cac so le: ', sumOfOdd);

     writeln('Tich cac so chan: ', productOfEven);

     readln;

end.