Paskal ABC вариант 2

Question

Задача 11 класс 
Сформировать массив A(N), заполнив его целыми числами из отрезка [-5,3]. Вывести массив на экран.

2)найти сумму положительных элементов во второй половине массива. 
3)найти произведение элементов в первой половине массива. 
4)возвести все минимальные элементы в куб. 
5)заменить все положительные элементы, стоящие под нечетными номерами, на противоположные.

Галина Зубенко · Accepted Answer

const N=10; 
var A: array [1..n] of integer; 
i:byte; 
begin 
randomize; 
for i:=1 to n do begin 
 a[ i ] := Random (9)-5 ; 
writeln (a [ i ]); 
end; 
end.