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

Задан массив А размерности 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.