Варна Практическое задание N№1
Составь программу, в которой будет вычислено значение у:
а у 2b 3c
4; b = 3.5; c= 2
Код 1
a = 4; b = 3.5; c= 2;
print((a + 2 + b – 3*c)/(5 sa+b))
Практическое задание N:2
Составь программу, которая вычисляет значение выражения (Код 2).
а + 2e
Пример Результат
а (3 + (44 - а?))
4 - с
5.83783 78
5
1
Код 2
floatinput)
b = float(input)
с- float input (л
print (abs (a + 2 = c) b = b + 3 = a* e) a* (3 + (4-а? а)))
асы​

program raf105;

const

 n = 10; //Размер массива

var

 a,b,c: array[1..n] of integer;

 x,i,j,b2,c2,min,minpos: integer;

begin

 write('Введите число: ');

 readln(x);

 writeln('Вводите числа по очереди');

 for i:=1 to n do

 begin

   readln(a[i]);

   if a[i] > x

     then begin

       c2:= c2+1;

       c[c2]:= a[i];

     end

     else begin

       b2:= b2+1;

       b[b2]:= a[i];

     end;

 end;

 for i:=1 to b2 do

 begin

   min:= b[i];  

   minpos:= i;

   for j:=i to b2 do

     if b[j] < min

       then begin

         min:= b[j];

         minpos:= j;

       end;

   b[minpos]:= b[i];

   b[i]:= min;

 end;

 for i:=1 to b2 do

   a[i]:= b[i];

 for i:=1 to c2 do

   a[i+b2]:= c[i];

 write('Вывод: ');

 for i:=1 to n do

   write(a[i],' ');

end.

program raf105;

const

 n = 10; //Размер массива

var

 a,b,c: array[1..n] of integer;

 x,i,j,b2,c2,min,minpos: integer;

begin

 write('Введите число: ');

 readln(x);

 writeln('Вводите числа по очереди');

 for i:=1 to n do

 begin

   readln(a[i]);

   if a[i] > x

     then begin

       c2:= c2+1;

       c[c2]:= a[i];

     end

     else begin

       b2:= b2+1;

       b[b2]:= a[i];

     end;

 end;

 for i:=1 to b2 do

 begin

   min:= b[i];  

   minpos:= i;

   for j:=i to b2 do

     if b[j] < min

       then begin

         min:= b[j];

         minpos:= j;

       end;

   b[minpos]:= b[i];

   b[i]:= min;

 end;

 for i:=1 to b2 do

   a[i]:= b[i];

 for i:=1 to c2 do

   a[i+b2]:= c[i];

 write('Вывод: ');

 for i:=1 to n do

   write(a[i],' ');

end.