===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var x := a.Where(p -> p > 0).ToArray;
var y := a.Where(p -> p < 0).ToArray;
x.Println;
y.Println
end.
а) свойства
б) Это окно, позволяющее пользователю заблокировать систему, сменить пользователя, выйти из системы, сменить пароль, вызвать Диспетчер задач Windows, завершить сеанс завершением работы, перезагрузкой или переводом компьютера в ждущий режим или в гибернацию.
в) -
г) Открывает окно поиска в браузере или навигацию в Microsoft Word. ... Делает активной адресную строку в браузере или выравнивание по левому краю текста в текстовых редакторах. Ctrl + M. Отступ выделенного текста в текстовых редакторах и во многих других программах.
Объяснение:
Множество относится к структурным типам данных.
Тип «множество» задаёт интервал значений, который явля-
ется множеством всех подмножеств базового типа. Базовый
тип – это перечислимый тип, кроме word, integer, longint. Син-
таксис определения типа множества:
<имя типа> = set of <базовый тип>;
Примеры:
Type
Tdigit = set of 0 .. 9;
Tsimv = set of ‘A’ .. ‘Z’ ;
Var
digit : Tdigit ;
simv : Tsimv;
Если переменная типа «множество» описана как set of 1 .. 3, то
она может принимать следующие значения: (1, 2, 3), (1, 2), (1,
3), (2, 3), (1), (2), (3), ().
Размер множества равен числу компонент базового типа
и может меняться от 0 до 256. Множество может быть пустым.
const n=10;
var a,x,y:array[1..n] of integer;
k,p,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
k:=1;
p:=1;
for i:=1 to n do begin
if a[i]>=0 then begin x[p]:=a[i]; p:=p+1; end;
if a[i]<0 then begin y[k]:=a[i]; k:=k+1; end;
end;
writeln;
for i:=1 to p do
write(x[i]:3);
writeln;
for i:=1 to k do
write(y[k]:3);
end.