Var i,n,h,m,d,r:integer; begin Write('Количество детей: '); Read(n); Write('Высота забора: '); Read(h); Writeln('Вводите через пробел рост детей (мальчиков - с минусом'); m:=0; d:=0; for i:=1 to n do begin Read(r); if (r<0) and (-r>h) then Inc(m) else if r+10>h then Inc(d) end; Writeln('Видно мальчиков- ',m,', девочек- ',d) end.
Контрольное решение Количество детей: 8 Высота забора: 112 Вводите через пробел рост детей (мальчиков - с минусом -119 -124 118 107 -115 113 -111 105 Видно мальчиков- 3, девочек- 4
const n = 5; var a: array [1..n] of integer; i,k,x,l: integer; t: boolean; begin for i := 1 to n do read(a[i]); k := 0; for i := 1 to n do begin t := true; x := a[i]; if x < 0 then x := -x; l := 1; while l <= x do l := l*2; l := l div 2; while t and (l > 1) do begin t := x >= l; if t then x := x - l; t := t = (x mod 2 <> 0); x := x div 2; l := l div 4; end; if t then k := k + 1 end; write(k) end.
{2}
const n = 10; var a,d: array [1..n] of integer; i,j,k: integer; begin for i := 1 to n do a[i] := 100 + random(900); for i := 1 to n do begin d[i] := 0; for j := 1 to a[i] do if a[i] mod j = 0 then d[i] := d[i] + 1; end; for i := 1 to n-1 do begin k := i; for j := i + 1 to n do if d[j] < d[k] then k := j; j := a[k]; a[k] := a[i]; a[i] := j; j := d[k]; d[k] := d[i]; d[i] := j; end; for i := 1 to n do write(a[i],' ') end.
{3}
const n = 10; l = 3; var a: array [1..n] of integer; m: array [1..l] of integer; i,j,k: integer; begin for i := 1 to n do begin a[i] := random(1001); write(a[i],' ') end; writeln; for i := 1 to l do m[i] := -1; for i := 1 to n do begin j := 1; while j <= l do begin if (a[i] = m[j]) then j := l else if (a[i] < m[j]) or (m[j] = -1) then begin for k := l downto j+1 do m[k] := m[k-1]; m[j] := a[i]; j := l end; j := j + 1 end; end; for i := 1 to l do if m[i] <> -1 then write(m[i],' ') end.
i,n,h,m,d,r:integer;
begin
Write('Количество детей: '); Read(n);
Write('Высота забора: '); Read(h);
Writeln('Вводите через пробел рост детей (мальчиков - с минусом');
m:=0; d:=0;
for i:=1 to n do
begin
Read(r);
if (r<0) and (-r>h) then Inc(m)
else
if r+10>h then Inc(d)
end;
Writeln('Видно мальчиков- ',m,', девочек- ',d)
end.
Контрольное решение
Количество детей: 8
Высота забора: 112
Вводите через пробел рост детей (мальчиков - с минусом
-119 -124 118 107 -115 113 -111 105
Видно мальчиков- 3, девочек- 4