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

Procedure swap(var a, b: real); var t: real; begin       t : = a;       a : = b;       b : = t; end; var a, b, c: real; begin       readln(a, b, c);       if (a > b) then swap(a, b);       if (b > c) then swap(b, c);       if (a > b) then swap(a, b);       writeln(a, ' ', b, ' ', c); end.===========================без процедур: var a, b, c, t: integer; begin      readln(a, b, c);       if (a > b) then      begin          t : = a;           a : = b;           b : = t;       end;       if (b > c) then      begin          t : = b;           b : = c;           c : = t;       end;       if (a > b) then      begin          t : = a;           a : = b;           b : = t;       end;       writeln(a, ' ', b, ' ', c); end.

В3 пункте непонятно. "чему равна температура за первую половину сентября? " средняя температура? половина сентября? в и так прдставлен массив половины сентября - с 1 по 15 число. uses crt; const n=15; var max,min,i,k: integer; sr: real; a: array[1..n] of integer; begin randomize; for i: =1 to n do begin a[i]: =random(23)-4; write(a[i]: 3); end; writeln; max: =-4; for i: =1 to n do if a[i]> max then begin max: =a[i]; k: =i; end; writeln('a)',k,' day ',max,'temperature'); min: =19; for i: =1 to n do if a[i]< min then begin min: =a[i]; k: =i; end; writeln('a)',k,' day ',min,'temperature'); sr: =0; for i: =1 to n do sr: =a[i]+sr; sr: =sr/n; writeln('средняя температура за половину сентября ',sr); k: =0; for i: =1 to n do if a[i]< sr then begin inc(k); writeln(i,'сентября'); end; writeln(k); end.

1.vart,vk,vt: real; beginwriteln('введите скорость катера (vk) и скорость течения реки (vt) в км/ч: '); read(vk,vt); writeln('введите время (t) в часах: '); read(t); writeln('катер за ',t,'ч. пройдет ',t*(vk+vt),' км'); end.2.varn,x: real; beginwriteln('введите кол-во кактусов: '); read(x); writeln('сколько кактусов было побрито? '); read(n); if (x - n) < x/2 then writeln('гладких кактусов больше.'); if (x - n) = x/2 then writeln('небритых и гладких поровну.'); if (x - n) > x/2 then writeln('небритых кактусов больше.'); end.