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, đế

#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_