1)дан одномерный массив.заменить отрицательные элементы на противоположные по знаку 2)дан одномерный массив.если элемент четный, то прибавить к нему первый элемент, если нечетный-прибавить последний элемент 3)дан одномерный массив.удалить из массива максимальный элемент.после удаления сдвинуть все следующие за ним элементы влево.последнему элементу присвоить значение 0. паскаль желательно блок схему заранее

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin 
  ReadArrInteger(ReadInteger('n->')).Select(t->-t).Println;
end.

Пример:
n-> 5
7 -9 4 5 -20
-7 9 -4 -5 20

2)
begin
 var a:=ReadArrInteger(ReadInteger('n->')); var (f,l):=(a[0],a[a.Length-1]);
 Range(0,a.Length-1).ForEach(t->begin if a[t]<>0 then if a[t].IsEven then a[t]:=a[t]+f else a[t]:=a[t]+l;end);
 a.Println;
end.

Пример:
n-> 14
1 5 4 7 8 6 2 4 2 4 0 4 0 3
4 8 5 10 9 7 3 5 3 5 0 5 0 6

3)
begin
 var a:=ReadArrInteger(ReadInteger('n->')); var im:=a.IndexMax;
 If im<>a.Length-1 then a:=a[:im]+a[im+1:]+arr(0) 
                           else a:=a[:im]+arr(0); 
 a.Println;
end.

Пример(1):
n-> 5
1 2 5 3 4
1 2 3 4 0

Пример(2):
n-> 5
1 2 3 4 5
1 2 3 4 0

Var St: string;
 z:string[10];
 x:string[2];
i,j,k,m: integer;           //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0;                       //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
 begin;
  for m:=1 to 10 do
   if St[j]=z[m] then inc(k);
 end;
if k=0 then
begin;
 writeln('в тексте нет цифр');
 exit;
end;                              //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.

                                                          профессия  на открытом воздухе       в помещениях     в небольших         в небольших                                                                         замкнутых             условиях                                                                          пространство.       труда