В среде программирования создайте массив a из десяти случайных целых чисел, принадлежащих полуинтервалу [-50; 50)

В среде программирования создайте массив a из десяти случайных целых чисел, принадлежащих полуинтервалу [-50; 50). Выведите полученный массив на экран. Подсчитайте сумму положительных и количество отрицательных элементов массива.

Решение №1

Код

program RandomArraySumCount;

const
  Size = 10;

var
  a: array[1..Size] of Integer;
  sumPositive: Integer;
  countNegative: Integer;
  i: Integer;

begin
  Randomize;
  sumPositive := 0;
  countNegative := 0;

  // Заполнение массива и вывод его на экран
  for i := 1 to Size do
  begin
  a[i] := Random(100) -50;
  Write(a[i]:5);

  // Подсчет суммы положительных и количества отрицательных элементов
  if a[i] > 0 then
  sumPositive := sumPositive + a[i]
  else if a[i] < 0 then
  countNegative := countNegative + 1;
  end;

  // Вывод результатов
  Writeln;
  Writeln('Сумма положительных элементов: ', sumPositive);
  Writeln('Количество отрицательных элементов: ', countNegative);
  Readln;
end.