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.