2по информатике на тему "программирование линейных алгоритмов",

#include <iostream>

int main()

{

   double X,A,B,C,D,TMP1,TMP2,TMP3;

   std::cin >> A >> B >> C >> D;

   if (C < D) TMP1 = C; else TMP1 = D;

   if (A < B) TMP2 = A; else TMP2 = B;

   if (TMP1 < TMP2) TMP3 = TMP1; else TMP3 = TMP2;

   if (sin(A) > D) TMP1 = sin(A); else TMP1 = D;

   X = TMP3 + TMP1;

   std::cout << X;

   return 0;

}

Поскольку в первоначальном условии задачи никаких дополнительных требований не было, считается, что ограничений на количество переменных нет. Если требовалось решение в каком-то ином виде, создайте новый вопрос.

Var a:array[1..10] of integer;
  k,n,i:integer;
  min:INTEGER;
begin
  randomize; N:=10; k:=0 {кол-во отрицательных элементов};
  writeln ('исходный массив');
  for i:=1 to N do
  begin
   if random(2) =1 then a[i]:=random(100)
     else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
   write(a[i]:5);
  end;
  writeln;
  {поиск минимального положительного}
  if (k<>0) or (k<>N) then  {есть отрицательные или не все отрицательные}
  begin
    for i:=1 to N do
     if  (a[i]>0) and (a[i]<min) then  min:=a[i];
  {замена}
    for i:=1 to N do
     if  (a[i]<0)  then  a[i]:=min;
  end;
  writeln('Новый массив')
    for i:=1 to N do      write(a[i]:5);
end.