Viết chương trình nhập N số nguyên từ bàn phím: a, in ra màn hình các số chẵn, số lẻ b, tính và in ra màn hình tổng các số âm, tổng các số dương c, đếm các số không có trong dãy số đó (Bên mình làm python ạ) Mong mọi người giúp em..

#Sha

a. Số chẵn:

uses crt; 
var i,n,s:integer; 
begin 
clrscr; 
writeln(' Nhập n : ' );Readln(n); 
S:=0; 
For i:=1 to n do 
begin 
if (i mod 2) = 0 then s:=s+i; 
end; 
Writeln('Tổng S: ,S);readln; 
END. 

Số lẻ:

uses crt;
var s,dem,i,n:integer;
      a:array[1..100] of integer;
begin
write('nhap n);readln(n);
for i:=1 to n do 
begin; wite('a[i]='); readln(a[i]);
dem:=0; s:=0;
for i:=1 to n do
begin;
if a[i] <0 and a[i] mod 2 = 0 then dem:=dem+1;
if a[i] mod 2 <> 0 then s:=s+a[i];
end;
writeln('co tat ca',dem,' so am chan trong day');
writeln('tong cac so le trong day la',s);
readln;
end.

b, c

Var
a:array[1..100] of integer;
i,n,max,max1:integer;
Begin
readln(n);
For i:=1 to n do
begin
readln(a[i]);
write(a[i]);
end;
writeln;
max:=0;max1:=0;
For i:=1 to n do
if a[i] mod 2=0 then If a[i]>max then max:=a[i];
esle if a[i]>max1 then max1:=a[i];
writeln('so chan lon nhat la:',max);
write('so le lon nhat trong day la:',max1);
readln
end.

_chúc bạn học tốt_

Gộp cả a,b,c nhé:

Program baitap;

Uses crt;

var A:array[1..10000] of integer;

      n,i,ta,td,d:integer;

begin

clrscr;

write('Nhap so luong phan tu: ');  readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

for i:=1 to n do

 begin

  write('phan tu thu ',i,': ');

  readln(A[i]);

 end;

write('Cac so chan co trong day la: ');

for i:=1 to n do

 if A[i] mod 2=0 then

  write(A[i],' ');

writeln;

write('Cac so le co trong day la: ');

for i:=1 to n do

 if A[i] mod 2=1 then

  write(A[i],' ');

ta:=0;   td:=0;

for i:=1 to n do

 if A[i]<0 then ta:=ta+A[i]

 else td:=td+A[i];

writeln('Tong cac so am trong day la: ',ta);

writeln('Tong cac so duong co trong day la: ',td);

d=0;

for i:=1 to n do

 if A[i]=0 then d:=d+1;

write('Co ',d,' so 0 o trong day');

readln

end.