Mình làm trên máy bạn xem nhé.
while ... do
uses crt;
var i,n,s:longint; a:array[1..1000000]of longint;
begin
clrscr;
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]);
end;
i:=0;
while i<n do
begin
inc(i);
if a[i] mod 2=1 then inc(s,a[i]);
end;
writeln(s);
readln
end.
repeat...until
uses crt;
var i,n,s:longint; a:array[1..1000000]of longint;
begin
clrscr;
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]);
end;
i:=0;
repeat
inc(i);
if a[i] mod 2=1 then inc(s,a[i]);
until i=n;
writeln(s);
readln
end.
