4. Из элементов массива A сформировать массив A той же размерности по правилам: Если номер четный, то B[i]:=i*, если нечетный, то B[i]:=-A[i].

5. Сформировать массив а с помощью датчика случайных чисел целыми числами из интервала [-15,70].

6. Удалить из массива все элементы, которые повторяются, оставить только их первые вхождения, то есть получить массив из различных элементов.

1)

var A, B: array[1 ... 200] of real;

N, i: integer;

begin

write ('Введите количество элементов массивов A и B: ') ;

readln (N) ;

writeln ('Введите значения элементов массива A') ;

for i:=1 to N do read (A[i]) ;

writeln () ;

for i: = 1 to N do

if (i mod 2 = 0) then B[i]:=i*A[i]

else B[i]:=-A[i];

writeln ('Массив В:') ;

for i:=1 to N do write (B[i]:2:2,' ') ;

end.

2)

var A: array[1 ... 200] of integer;

N, i: integer;

begin

write ('Введите количество элементов массива A: ') ;

readln (N) ;

randomize;

for i:=1 to N do

A[i] : = random (86) - 15;

writeln ('Массив А: ') ;

for i:=1 to n do write (A[i], ' ') ;

end.