việt chương trình nhập vào dãy n số nguyên in ra số vừa nhập ra màn hình màn hình in ra các số chẵn bên 1 hàng càng cuối hàng in tổng các số chẵn giúp mik với.

program tongcacsole;

uses crt;

var i, n:integer;

s: longint;

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

begin

clrscr;

write ( ' hay nhap so phan tu cua day so, n= '); readln(n);

writeln( ' nhap cac phan tu cua day so: ');

for i := 1 to n do

begin

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

end;

for i := 1 to n do

if a[ i] mod 2 < > 0 then s := s + i;

writeln ( ' tong cac so le: ' , s);

readln

end.

*bạn có thể thay dòng :

if a[ i] mod 2 < > 0 then s:= s + i;

bằng dòng:

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

=>đều cho cùng 1 kết quả nhé