uses crt;
var a: array[1..100] of integer;
var n,i,sc,sl,s: integer;
begin
clrscr;
write ('nhap n: ');  readln (n);
for i:=1 to n do
begin
repeat
write ('nhap a[',i,']: ');  readln (a[i]);
if abs(a[i])<1000 then
begin
s:=s+a[i];
if a[i] mod 2=0 then sc:=sc+a[i];
if a[i] mod 2<>0 then sl:=sl+a[i];
end;
until abs(a[i])<1000;
end;
writeln ('tong cac so le trong day: ',sl);
writeln ('tong cac so chan trong day: ',sl);
writeln ('tong gia tri cua day so: ',s);
readln;
end.

Chúc ban thi tốt nhea !!!

꧁༺𝙘𝙖𝙤 𝙩𝙝𝙪̉ 𝙥𝙖𝙨𝙘𝙖𝙡ッ

Var B:Array[1..100] of integer;
      i, n, tc, tl, tm: longint;
Begin
     Clrscr;
     Write(‘Nhap n = ‘); readln(n);
     For i:=1 to n do
           Begin
                Write(‘B[‘,i,’]=’);
                Readln(B[i]);
            End;
     tc:=0; tl:=0; tm:=0;
     For i:=1 to n do if B[i] mod 2 = 0 then inc(tc, b[i]);
     For i:=1 to n do if B[i] mod 2 = 1 then inc(tl, b[i]);
     For i:=1 to n do inc(tm, b[i]);
     Writeln(‘Tong so nguyen chan la: ‘,tc:0:2);
     Writeln(‘Tong so nguyen le la: ‘,tl:0:2);
     Writeln(‘Tong gia tri cua day so la: ‘,tm:0:2);
Readln
End.