Question

Заполните массив случайными числами в интервале {-100,100} и представить элементы так, чтобы все положительные элементы стояли в начале массива, а все отрицательные и нули - в конце. Вычислите количество положительных элементов.

Answer 1

var

 A, Ap, Ao: array [1..14] of Integer;

 i, c, cp, co: Integer;

 s: Real;

begin

 Randomize;

 WriteLn ('Mассив:');

 for i := Low (A) to High (A) do begin

   A [i] := Random (201) - 100;

   Write (A [i], ' ');

 end;

 cp := 0;

 co := 0;

 for i := Low (A) to High (A) do begin

   if A [i] > 0 then begin

     cp := cp + 1;

     Ap [cp] := A [i];

   end else begin

     co := co + 1;

     Ao [co] := A [i];

   end;

 end;

 c := Low (A);

 for i := 1 to cp do begin

   A [c] := Ap [i];

   c := c + 1;

 end;

 for i := 1 to co do begin

   A [c] := Ao [i];

   c := c + 1;

 end;

 WriteLn;

 WriteLn ('Результат: ');

 for i := Low (A) to High (A) do begin

   Write (A [i], ' ');

 end;

 WriteLn;

 WriteLn ('Количество положительных элементов массива = ', cp);

end.

Answer 2

Вот пример кода на языке Python, который создает массив случайных чисел в интервале от -100 до 100, сортирует его так, чтобы положительные элементы были в начале, а отрицательные и нули в конце, и вычисляет количество положительных элементов:

pythonCopy code
import random

# Создаем пустой массив
arr = []

# Заполняем массив случайными числами в интервале [-100, 100]
for _ in range(10):
    arr.append(random.randint(-100, 100))

# Сортируем массив
arr.sort(key=lambda x: x >= 0, reverse=True)

# Вычисляем количество положительных элементов
positive_count = sum(1 for x in arr if x > 0)

# Выводим отсортированный массив и количество положительных элементов
print("Массив:", arr)
print("Количество положительных элементов:", positive_count)

Обратите внимание, что в примере я использовал массив из 10 элементов для наглядности, но вы можете изменить значение range(10) на желаемую длину массива.