Задачи на паскале.

Задан массив А размерности N случайным образом. Найти:

1) сумму положительных элементов массива

2) сформировать новый массив по следующему правилу: все чётные элементы разделить на 2, все нечётные элементы оставить без изменения.

(2 разные задачи) 

var A:array[1..100] of integer; n, i, Summ:integer;begin randomize; write('n = '); readln(n); Summ := 0; for i := 1 to n do begin A[i] := random(201) - 100; write(A[i], ' '); if A[i] > 0 then Summ := Summ + A[i]; end; writeln; if Summ <> 0 then writeln('Summ = ', Summ) else writeln('Нет ни одного положительного элемента'); readln;end.

//вторая программа

var A:array[1..100] of integer; B:array[1..100] of real; n, i, Summ:integer;begin randomize; write('n = '); readln(n); Summ := 0; for i := 1 to n do begin A[i] := random(201) - 100; write(A[i], ' '); if A[i] mod 2 = 0 then B[i] := A[i] / 2 else B[i] := A[i]; end;

writeln; writeln; writeln('Result:'); for i := 1 to n do write(B[i], ' '); readln;end.