Для каждого из десяти задаваемых вещественных чисел требуется вычислить значение y по правилу y={|x|, если x< 0, e^x, если 0< =x< =1, 1/2x+1) если x> 1

Const n=10; 
var a:array[1..n] of integer;
i,s,min:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
s:=0; 
min:=a[1];
for i:=1 to n do
 begin
 if a[i]>0 then s:=s+a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('s = ',s,'   min = ',min);
for i:=1 to n do
 if a[i]>0 then a[i]:=s
  else if a[i]<0 then a[i]:=a[i]-min;
writeln('Измененный массив:');
for i:=1 to n do  write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
   9  -3  -5   7   1   5  -6   9  -8   7
s = 38   min = -8
Измененный массив:
  38   5   3  38  38  38   2  38   0  38

Клавиатура утверждала. что главнее она ведь без нее печатать тексты нельзя. Память доказывала, что она главнее всех, ведь она все, всегда помнит. Процессор говорил, что главный он, потому что компьютеру работать. А монитор считал, что главный он-ведь без монитора и процессор, и клавиатура и память не нужна. Долго они спорили. Пришёл хозяин компьютера-мальчик по имени Ваня. Он увидел, что они ссорятся и объяснил им: что они все дополняют компьютер, ведь без памяти, монитора и клавиатуры-компьютер работать не будет. Они все поняли и жили не тужили.