Ответ:
pascal
Объяснение:
2)
var
i, k, n: integer;
a, b: array of integer;
begin
Write('Введите размер массива: ');
ReadLn(n);
SetLength(a, n);
WriteLn('Исходный массив:');
for i := 0 to n - 1 do
begin
a[i] := random(21) - 10;
Write(a[i]:4);
if a[i] > 0 then k := k + 1;
end;
WriteLn;
SetLength(b, k);
k := 0;
WriteLn('Пложительные числа:');
for i := 0 to n - 1 do
begin
if a[i] > 0 then
begin
b[k] := a[i];
Write(b[k]:4);
k := k + 1;
end;
end;
end.