Если сумма трёх различных чисел А,В,С равна 2,то наибольшее из этих чисел заменить наименьшим,если сумма больше 20,то все числа возвести в квадрат,в противном случае наибольшее из этих трёх чисел заменить числом 34

code: #pascal
uses crt; 
var 
   a: array[1..100] of integer; 
   i, j, t, d: integer; 
begin 
   for i := 1 to 3 do 
   begin 
     read(a[i]); 
   end; 
   for i := (3 - 1) downto 1 do 
     for j := 1 to i do 
     begin 
       if (a[j] > a[j + 1]) then 
       begin 
         t := a[j]; 
         a[j] := a[j + 1]; 
         a[j + 1] := t; 
       end; 
     end; 
   d := a[1] + a[2] + a[3]; 
   if (d = 20) then 
   begin 
     a[3] := a[1]; 
   end 
   else if (d > 20) then 
   begin 
     a[1] := sqr(a[1]); 
     a[2] := sqr(a[2]); 
     a[3] := sqr(a[3]); 
   end 
   else 
   begin 
     a[3] := 34; 
   end; 
   for i := 1 to 3 do 
   begin 
     write(a[i], ' '); 
   end; 
   readln; 
   readln; 
end.  
 

автор: DUMMY

Поделиться:

Похожие статьи: