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

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.