Ввести массив a (n). Если массив содержит не больше двух нулевых элементов, то уменьшить положительные элементы массива в 2 раза, иначе - найти минимальный

по модулю элемент массива. Pascal

Var a:array of real;

k, i, n:integer;

min, minr:real;

begin;

min:=2147483647;

write ('Введите размерность массива:') ;

readln (n) ;

setlength (a, n+1) ;

for i:=1 to n do

begin;

readln (a[i]) ;

if a[i]=0 then inc (k) ;

end;

if k<2 then

begin;

writeln ('Final array:') ;

for i:=1 to n do

begin;

a[i]:=a[i]/2;

write (a[i]:4) ;

end;

end

else

begin;

for i:=1 to n do

if abs (a[i])
begin;

min:=abs (a[i]) ;

minr:=a[i];

end;

write ('Result:', minr) ;

end;

end.