Не самый рациональный метод решения, но как говорится чем смог тем
var a,b,c,x,kc,kn,k1,k2:integer; begin kc:=1; kn:=1; k1:=0; k2:=0; a:=0; b:=0; writeln('Введите число x'); read(x); while x>0 do begin c:=x mod 10; if c mod 2=0 then begin inc(k1); a:=a+c*kc; kc:=kc*10; end; if c mod 2<>0 then begin inc(k2); b:=b+c*kn; kn:=kn*10; end; x:=x div 10; end; if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); writeln(a,' ', b); end.
var x: array[1..n] of integer; i, min, max: integer;
begin Randomize; Writeln('Элементы массива'); min := 32767; max := -32768; for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:4); if (x[i] > 0) and (min > x[i]) then min := x[i] else if (x[i] < 0) and (max < x[i]) then max := x[i] end; Writeln; Writeln('Min=', min, ', max=', max) end.
var x: array[1..n] of integer; i, max, max1: integer;
begin Randomize; Writeln('Элементы массива'); max := -32768; max1 := max; for i := 1 to n do begin x[i] := Random(100); Write(x[i]:3); if max < x[i] then begin max1 := max; max := x[i] end else if max1 < x[i] then max1 := x[i] end; Writeln; Writeln('Второй максимум равен ', max1) end.
Объяснение:
А какой рисунок то