//писал на скорую руку, должно все правильно работать var a,plus,minus,d:integer; c:array[1..50] of integer; begin plus:=0; minus:=0; for a:=1 to 50 do c[a]:=random(20)-10;//заполняем массив рандомо for a:=1 to 50 do//проверям условие if ((c[a]>0) and (c[a]<>0)) then plus:=plus + 1 else if ((c[a]<0) and (c[a]<>0)) then minus:= minus + 1; Writeln(plus,' ');//кол-во полож Writeln(minus,' ');//кол-во отриц if (plus>minus)then Writeln('Положительных') <span>else Writeln('Отрицательных'); </span>end.
{ фото огонь !!! ))) решение согласно схеме } var x, y, d: real; begin read(x,y); d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат} if d <= 1 then writeln('Входит в Д1') else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then writeln('Входит в Д2') else writeln('Не входит'); end.