Bài 3 a)Tìm phần tử lớn nhất của dãy số nguyên gồm n số a1, a2,..an b) Sao chép những số nguyên là số chẵn trong câu a sang mảng có tên là SOCHAN. Ai giúp mình với. Mình chân thành cảm ơn

uses crt;

var A, SOCHAN : array [1 .. 100] of integer;

i, n, m, j : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

write('Nhap mang gom ', n ,' so : ');

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

m := A[1]; for i := 1 to n do

if A[i] > m then m := A[i];

writeln('So lon nhat : ', m);

i := 1; for j := 1 to n do

if A[j] mod 2 = 0 then begin

SOCHAN[i] := A[j];

i := i + 1; end;

write('Cac phan tu mang SOCHAN : ');

for j := 1 to i - 1 do write(SOCHAN[j],' ');

readln

end.

a)

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,max: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;
        max:=A[1];
        For i:=2 to n do
                If A[i]>max then max:=A[i];
        Write('Max = ',max);
        Readln
End.

b)

Program FNG;
Uses crt;
Var A,Sochan: array[1..1000] of longint;
    n,i,max,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;
        d:=0;
        For i:=1 to n do
                If A[i] mod 2 = 0 then
                Begin
                        inc(d);
                        Sochan[d]:=A[i];
                End;
        For i:=1 to d do Write(Sochan[i]);

        Readln
End.