Помогите плез хоть сколько нибудь задания)

1)
Var a:array[1..10000] of longint;n,i:longint;
Begin
writeln(Введите кол-во элементов в массиве (1lt;=nlt;=10000));
readln(n);
writeln(Введите ,n, элементов массива (-2000000000lt;=alt;=2000000000));
for i:=1 to n do
begin
read(a[i]);
if (a[i]=0) then a[i]:=1;
end;
for i:=1 to n do
write(a[i], );
End.

2)
Var a:array[1..10] of longint;s:longint;
Begin
writeln(Генерация массива из 10 элементов...);
for i:=1 to 10 do
a[i]:=random(100)-50;
for i:=1 to 10 do
s+=a[i];
writeln(Сумма отрицательных равна ,s);
End.

3)
Var a:array[1..10] of longint;i:longint;
Begin
writeln(Введите 10 элементов массива (-2000000000lt;=alt;=2000000000));
for i:=1 to 10 do
begin
read(a[i]);
a[i]+=1;
end;
for i:=1 to 10 do
write(a[i], );
End.

4)
Var a:array[1..10] of longint;i:longint;
Begin
writeln(Генерация массива из 10 элементов...);
for i:=1 to 10 do
a[i]:=random(100)-50;
writeln(Меняю знаки...);
for i:=1 to 10 do
if (a[i]lt;0) then a[i]:=abs(a[i])
else if (a[i]gt;0) then a[i]-=a[i]*2;
for i:=1 to 10 do
write(a[i], );
End.

5)
Var a:array[1..12] of longint;i:longint;k:byte;
Begin
writeln(Генерация массива из 12 элементов...);
for i:=1 to 12 do
begin
a[i]:=random(100)-25;
if (a[i]=12) then k+=1;
end;
writeln(Получившийся массив:);
for i:=1 to 12 do
write(a[i], );
writeln(Число 12 встречалось ,k, раз.);
End.

6)
Var b:array[1..10] of longint;i:longint;pr:int64;
Begin
writeln(Генерация массива из 10 элементов...);
for i:=1 to 10 do
begin
b[i]:=random(100)-50;
if (b[i]gt;0) then pr*=b[i];
end;
writeln(Получившийся массив:);
for i:=1 to 10 do
write(b[i], );
writeln(Произведение положительных элементов=,pr);
End.

7)
Var b:array[1..15] of longint;i:longint;k:byte;
Begin
writeln(Введите 15 элементов массива (-2000000000lt;=blt;=2000000000));
for i:=1 to 15 do
begin
read(b[i]);
if (b[i]lt;gt;0) then k+=1;
end;
writeln(Количество ненулевых элементов=,k);
End.

8)
Var a:array[1..10000] of longint;n,i,k:longint;
Begin
writeln(Количество чисел в таблице);
readln(n);
writeln(Какие числа в таблице);
for i:=1 to n do
begin
read(a[i]);
if (a[i] mod 2=1) then k+=1;
end;
writeln(Количество нечётных элементов=,k);
End.