Bài 1:

uses crt;
var  i,n:longint;a:Array[1..6] of integer;
begin
        clrscr;
        for i := 1 to 5 do
        begin
                write('nhap phan tu mang: ');
                read(a[i]);
        end;
        for i := 1 to 5 do
        begin
                write(a[i], ' ');
        end;
        writeln;
        write('cac phan tu chia het cho 2 la: ');
        for i := 1 to 5 do
        begin
                if a[i] mod 2 = 0 then
                write(a[i], ' ');
        end;
end.

Bài 2:

uses crt;
var  i,n:longint;a:Array[1..100000] of real;s,s1:real;
begin
        clrscr;
        write('nhap n: ');read(n);
        s:=0;s1:=0;
        for i := 1 to n do
        begin
                write('nhap phan tu mang: ');
                read(a[i]);
                s:=s+a[i];
                if a[i] < 0 then s1:=s1+a[i];
        end;
        for i := 1 to n do
        begin
                write(a[i]:0:0, ' ');
        end;
        writeln;
        write('tong cac phan tu la: ',s:0:0);
        writeln;
        writeln('tong cac phan tu am la: ',s1:0:0);

end.

p/s: cần hỏi gì cứ nói mình nhé.

@Hômnaytôibịrob

Câu 1 :

uses crt;

var a : array[1..5] of integer;

i : byte;

begin

clrscr;

for i := 1 to 5 do

begin

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

readln(a[i]);

end;

write('Xuat mang : '); 

for i := 1 to 5 do write(i : 5);

writeln;

write('Xuat mang chia het cho 2 : ');

for i := 1 to 5 do 

if i mod 2 = 0 then write(i : 5);

readln

end.

Câu 2 :

uses crt;

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

i, n, s1, s2 : integer;

begin

clrscr;

write('Nhap so phan tu co trong day : '); readln(n);

s1 := 0; s2 := 0;

for i := 1 to n do

begin

write('Nhap phan tu thu ', i ,' : '); readln(A[i]);

s1 := s1 + A[i];

if A[i] < 0 then s2 := s2 + A[i];

end;

write('Xuat mang : ');

for i := 1 to n do write(A[i] : 4);

writeln;

writeln('Tong phan tu : ', s1);

writeln('Tong phan tu am : ', s2);

readln

end.