Giúp tui bài này nha

[tuan.tuan]

Nhập vào mảng gồm 25 phần tử nguyên dương. In ra màn hình
- Giá trị lớn nhất, giá trị nhỏ nhất, vị trí của chúng trong mảng
- Mảng là các số chẵn

[1024KB]

...//Khai báo các biến cần thiết ở bên dưới
begin
write('Nhap n: ');
readln(n);
for i:=1 to n do
readln(A[i]);
min:=A[1];
max:=A[1];
for i:=2 to n do
begin
if(A[i] < min) then
begin
min:=A[i];
vtmin:=i;
end;
if(A[i] > max) then
begin
max:=A[i];
vtmax:=i;
end;
end;
writeln('Max la',max,' o vi tri: ',vtmax);
writeln('Min la',mmin,' o vi tri: ',vtmin);
readln;
end.

[nhokdragon94]

Câu 2:
Nhập mảng A(cái này bạn tự làm);

chtrinh chính:
for i:=1 to n do
If A[i] mod 2=0 then
begin
t:=t+1;{biến đếm số lượng các phần tử mang B}
B[t]:=A[i];{đưa vào mảng B}
end;
Xuất mảng B ra