1.Задайте одномерный массив A и посчитайте количество отрицательных элементов этого массива, а также выдайте новый массив, заменив все отрицательные числа на положительные.
2.В одномерном массиве найдите минимальный элемент и замените первый элемент на последний, а последний на первый, выдайте новую строку.

const N = 30; 
 var 
 a: array[1..N] of integer; 
 i, neg: byte; 
 begin 
 randomize; 
 neg := 0; 
	//генерация массива 
 for i:=1 to N do begin 
 a[i] := random(100) - 50; 
 write(a[i]:4); 
 if a[i] < 0 then 
 neg := neg + 1 
 end; 
	//поиск отрецательных 
	for i:=1 to N do begin 
 if a[i] < 0 then begin 
 neg := neg + 1; 
	a[i] := a[i]*(-1) 
	end; 
 end; 
 writeln; 
 writeln('Отрицательных: ', neg); 
 end.