Cho dãy A1, A2,... An. 1.Nêu ý tưởng giải 2.Tính tổng S = A1+A2+....+An 3.Đếm số phần tử có giá trị chẵn 4. Viết sơ đồ thuật toán và giải bài toán trên Giải gấp giúp em với ạ, em cảm ơn nhiều

* Thuật toán :

- Bước 1 : nhập n, dãy a1, a2, ... , an
- Bước 2 : i ← 2; dem ← 0
- Bước 3 : nếu i > n  thì đưa ra giá trị dem  rồi kết thúc
- Bước 4 : nếu a[i] mod 2 = 0  thì dem ← dem + 1;
- Bước 5 : i ← i + 1, quay lại bước 3

* Viết chương trình :

program mang;

uses crt;

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

      i, n, dem  : integer;

begin

clrscr;

write('nhap so luong phan tu co trong mang :');readln(n);

dem := 0;

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

if a[i] mod 2 = 0 then dem := dem + 1;

end;

writeln('so luong phan tu han trong mang la :', dem);

readln

end.