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.
Uses crt; const n=4; var b:array[1..n,1..n] of integer; i,j,pr,k,t,min:integer; begin randomize; pr:=1; for i:=1 to n do for j:=1 to n do b[i,j]:=random(100)-50; for i:=1 to n do begin for j:=1 to n do write(b[i,j]:3); writeln; end; writeln; k:=1; t:=3; repeat for i:=k to k do for j:=1 to t do if b[i,j]>0 then pr:=b[i,j]*pr; inc(k); t:=t-1; until k=4; writeln(pr); min:=50; for i:=1 to n do for j:=2 to 2 do if b[i,j]<min then begin min:=b[i,j]; k:=i; t:=j; end; writeln(min); writeln; b[4,3]:=b[4,3]+b[k,t]; b[k,t]:=b[4,3]-b[k,t]; b[4,3]:=b[4,3]-b[k,t]; for i:=1 to n do begin for j:=1 to n do write(b[i,j]:3); writeln; end; writeln; end.
Программа для движения роботов из конструктора lego mindstorms EV3 вдоль черной линии.
Объяснение: