X=3*(-11)+3+6=-33+9=-24)
}=> Команда (сместиться на (24,-32)
y=3*(9)+3+2=27+5=32)
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-100,100); a.Println;
a:=a.Where(x->x>0).Concat(a.Where(x->x<=0)).ToArray;
a.Println;
Writeln('Количество положительных элементов: ',
a.Where(x->x>0).Count)
end.
<u><em>Тестовое решение:</em></u>
n= 15
-29 56 -40 -23 -26 -5 -69 37 -35 74 72 -63 -69 1 -93
56 37 74 72 1 -29 -40 -23 -26 -5 -69 -35 -63 -69 -93
Количество положительных элементов: 5
uses crt;
var n:integer;a,b:real;
begin
clrscr;
writeln('Введите номер');
readln(n);
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
case n of
1:writeln(a+b);
2:writeln(a-b);
3:writeln(a*b);
4:writeln(a/b);
end;
end.