Даны две переменные вещественного типа: a, b. перераспределить значе- ния данных переменных так, чтобы в a оказалось меньшее из значений, а в b — большее. вывести новые значения переменных a и b.

var a,b,c: real;

begin

readln(a,b);

if a> b then begin

c: =b;

b: =a;

a: =c;

end;

writeln(a,' ',b);

end.

var

  a, b, c : real;

begin

 

  a : = ;

  b : = ;

 

  if a > b then

  begin

    c : = a;

    a : = b;

    b : = c;

  end;

 

writeln('a = ', a);

writeln('b = ', b);

 

end.

Создаешь цикл for , который записывает номера array[ i ].numer;   в отдельный массив . затем массив  прогоняешь массив циклом for и ищешь максимум (не забудь добавить переменную-счетчик что б он выводил не первый максимум, а только тогда, когда пройдет весь массив). затем выведенное число заменяешь на 0   . тебе понадобится еще одна переменная-счетчик, что бы после того как он выведет тебе все номера, он не начал выводить нули.костыльно конечно , но этот способ работает. успехов!

// pascalabc.net 3.0, сборка 1128 uses   system.text.regularexpressions;   begin   var s: ='        - 32      / - 21  ';   s: =regex.replace(s,'\s','');   var a: =regex.matches(s,'(-{0,1}\d+)|[\+\-\*/]');   var n: =a.count;   var x,y: integer;   var c: char;   case n of   3: begin       x: =strtoint(a[0].tostring); y: =strtoint(a[2].tostring);       c: =a[1].tostring[1]       end;   2: begin       x: =strtoint(a[0].tostring); var s1: =a[1].tostring;       c: =s1[1]; s1[1]: ='0'; y: =strtoint(s1)       end;   else       begin writeln('недопустимое выражение'); exit end   end;   writeformat('{0} {1} {2} = ',x,c,y);   case c of   '+': writeln(x+y);   '-': writeln(x-y);   '*': writeln(x*y);   '/': writeln(x/y)   end end. тестовое решение: -32 / -21 = 1.52380952380952 // pascalabc.net 3.0, сборка 1128 begin   var s: ='4km-549_ffb)5)6';   var t: =s.where(x-> x in ['0'..'9']).joinintostring('');   var n: int64;   if trystrtoint64(t,n) then writeln(2*n)   else writeln('не удалось выделить число') end. тестовое решение: 909912