===== PascalABC.NET =====
var a := ArrRandom(10, -100, 100);
a.Println.Where(p -> p < 0).Count.Println
end.
Берем с точки (-5;7),чертим до точки (-3;11),теперь вниз до точки (-3;1).Векторы в точке (-5;7) и (-3,11).
Program mas;
var
mas, p_mas: array[1..15] of integer;
i: integer;
begin
randomize;
for i:= 1 to 15 do
begin
mas[i] := Random(6) + 7;
p_mas[i] := mas[i];
end;
mas[8] := mas[10] + 5;
mas[10] := mas[13];
writeln('Первоначальный массив:');
for i := 1 to 15 do
write(p_mas[i], ' ');
writeln(CRLF + 'Изменённый массив:');
for i := 1 to 15 do
write(mas[i], ' ');
end.
Просмотри прикрепленный файл
Ответ:
НЕ это значит инверсия, т.е. если в условии написано x<2, то x наоборот должен быть НЕ <2, т.е. х>2
2) 4
3) 8
4) 7
5) 11
6) 8
--------
Если вам помог мой ответ, то лучшей благодарностью будет выбор его как лучший :3