Решите задачу пожалуйста по информатике

program fail;
const
max_size = 10;
max_val = 100;

var
A, B, C: array [ 1..max_size ] of integer;
i, j, x, sum: integer;

function rand: integer; begin
rand := random(2*max_val)-max_val;
end;

begin
for i:=1 to max_size do begin
A[ i ] := rand;
B[ i ] := rand;
writeln('A[ ',i,' ]=',A[ i ],'; B[ ',i,' ]=',B[ i ]);
end;
writeln;

for i:=1 to max_size do begin
C[ i ] := abs(A[ i ]*B[ i ]);

x := A[ i ];
if (abs(x)<abs(B[ i ])) then
x := B[ i ];
if (abs(x)>0) then
x := x div abs(x);

C[ i ] := x*C[ i ];
writeln('C[ ',i,' ]=',C[ i ]);
end;
writeln;

sum := 0;
for i:=1 to max_size do
if ((C[ i ]>0) and (not odd(C[ i ]))) then
sum := sum + C[ i ];

writeln('sum=',sum);
end.

На Бейсике например так
Dim A1(10) As Integer, A2(10) As Integer, A3(10) As Integer, k As Integer, Txt As String, S As Integer
Txt = ""
For k = 1 To 10
A1(k) = InputBox ("Введите " & k & "-ый элемент 1 массива")
A2(k) = InputBox ("Введите " & k & "-ый элемент 2 массива")
A3(k) = Abs (A1(k))*Abs (A2(k))
If Abs (A1(k)) >= Abs (A2(k)) Then
If A1(k) < 0 Then A3(k) = (-1)*A3(k)
ElseIf Abs (A2(k)) >= Abs (A1(k)) Then
If A2(k) < 0 Then A3(k) = (-1)*A3(k)
End If
Txt = Txt & A3(k) & "; "
Next k
MsgBox ("Выходной массив: " & Txt)
S = 0
For k = 1 To 10
If (A3(k) > 0) And (A3(k) Mod 2 = 0) Then S = S + A3(k)
Next k
MsgBox ("Сумма положительных четных элементов выходного массива: "& S)
End

по циклу рандомишь массив и формируешь третий, в котором проверяешь четность и суммируешь
10 строк вся программа