Напишите программу, которая вычисляет значение выражения по известной формуле x+y/x+1 - x*y-12/34+x хиу - переменные целого типа, вводятся с клавиатуры (в одной строке два числа)
Программа должна вывести одно число - результат вычисления выражения

pascalABC

Объяснение:

var

 a: array of integer;

 i, j, n, k: integer;

begin

 Write('Введите размер массива: '); ReadLn(n);

 SetLength(a, n);

 Randomize();

 for i := 0 to n - 1 do begin

   a[i] := random(201) - 100;

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

 end;

 for i := 0 to n - 2 do begin

   if a[i] > 0 then continue;

   for j := i + 1 to n - 1 do begin

     if a[j] > 0 then begin

       swap(a[i], a[j]);  //перестановка элементов местами

       break;

     end;  

   end;

 end;

 for i := 0 to n - 1 do Write(a[i], ', '); WriteLn;

 WriteLn('В массиве ', k, ' положительных элементов.');

end.

pascalABC

Объяснение:

var

 a: array of integer;

 i, j, n, k: integer;

begin

 Write('Введите размер массива: '); ReadLn(n);

 SetLength(a, n);

 Randomize();

 for i := 0 to n - 1 do begin

   a[i] := random(201) - 100;

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

 end;

 for i := 0 to n - 2 do begin

   if a[i] > 0 then continue;

   for j := i + 1 to n - 1 do begin

     if a[j] > 0 then begin

       swap(a[i], a[j]);  //перестановка элементов местами

       break;

     end;  

   end;

 end;

 for i := 0 to n - 1 do Write(a[i], ', '); WriteLn;

 WriteLn('В массиве ', k, ' положительных элементов.');

end.