const nn=100; // максимальное количество элементов в массиве
type Mas=array[1..nn] of integer;
procedure SortShell(n:integer; var a:Mas); var i,d,t:integer; k:boolean; begin d:=n div 2; // начальный шаг сортировки while d>0 do begin k:=true; while k do begin k:=false; for i:=1 to n-d do begin if(a[i]>a[i+d]) then begin t:=a[i]; a[i]:=a[i+d]; a[i+d]:=t; k:=true end end end; d:=d div 2 end end;
var i,n:integer; v:Mas;
begin Write('n='); Read(n); Writeln('Вводите элементы массива'); for i:=1 to n do Read(v[i]); SortShell(n,v); for i:=1 to n do Write(v[i],' '); Writeln end.
var a,b,c, max, min:real; begin Readln(a,b,c); if (a > b) and (a > c) then Max:= a; if (c > b) and (c > a) then Max:= c; if (b > a) and (b > c) then Max:= b;
if (a < b) and (a < c) then Min:= a; if (c < b) and (c < a) then Min:= c; if (b < a) and (b < c) then Min:= b;
if (a <> min) and (a <> max) then writeln(a); if (b <> min) and (b <> max) then writeln(b); if (c <> min) and (c <> max) then writeln(c); end.
алфавиттин куаттылыгын
Объяснение: