Giúp mik với nhé!!!!!!!! Câu 1:Viết chương trình tính tích: S=1*2*3*...*n Câu 2:Viết chương trình nhập vào dãy số nguyên gồm 10 phần tử và in ra các số nguyên âm (sử dụng mảng) Câu 3: Giống câu 2 nhưng là số nguyên dương. Câu 4: Giống câu 2 nhưng là số chẵn. Câu 5: Giống câu 4 nhưng là số lẻ. Mong mọi người giúp đỡ ạ, mik dốt tin lắm ạ!!!

câu 1:

program ct;

uses crt;

var i,n,s:integer;

begin

clrscr;

write('nhap n:=');readln(n);

s:=1;

for i:=1 to n do s:=s*i;

writeln('tich la:',s);

readln

end.

câu 2:

program ct;

uses crt;

var i,n:integer;

A:array[1..10] of integer;

begin

clrscr;

write('nhap n la 10 phan tu:=');readln(n)

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

for i:=1 to n do

if A[i]<0 then writeln('so am la:',A[i]);

readln

end.

câu 3:

program ct;

uses crt;

var i,n:integer;

A:array[1..10] of integer;

begin

clrscr;

write('nhap n la 10 phan tu:=');readln(n)

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

for i:=1 to n do

if A[i]>0 then writeln('so duong la:',A[i]);

readln

end.

câu 4:

program ct;

uses crt;

var i,n:integer;

A:array[1..10] of integer;

begin

clrscr;

write('nhap n la 10 phan tu:=');readln(n)

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

for i:=1 to n do

if A[i] mod 2=0 then writeln('cac so chan la:',A[i]);

readln

end.

câu 5:

program ct;

uses crt;

var i,n:integer;

A:array[1..10] of integer;

begin

clrscr;

write('nhap n la 10 phan tu:=');readln(n)

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

for i:=1 to n do

if A[i]mod 2=1 then writeln('cac so le la:',A[i]);

readln

end.