code:

uses crt;

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

n,i,s: integer;

begin

clrscr;

write('nhap n: '); readln(n);

for i:=1 to n do

begin

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

if (a[i]>0) and (a[i] mod 2 = 0) then s:=s+a[i];

end;

write('tong cac so chan lon hon 0 cua day so la: ',s);

readln;

end.

đây nha, chúc bạn học tốt!

Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử. Tính tổng các số chẳn lớn hơn 0 của dãy số đó?

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

program tongcuadayn;

uses crt;

var n, i, s : integer;

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

begin

 clrscr;

 s:=0;

 writeln('Nhap do dai cua day so nguyen:'); readln(n);

 for i:=1 to n do

    begin

       writeln('a[',i,']= '); readln(a[i]);

    end;

 for i:=1 to n do if a[i] mod 2 = 0 then s:=s+a[i];

 writeln(' Tong cac so nguyen trong day =',s);

 readln;

end.