Question

В Паскале. Создать массив В из десяти целых чисел. Вывести полученный массив на экран. Подсчитать сумму положительных и количество отрицательных элементов массива

Answer 1

Ответ:

PascalABC.NET

begin

 var B := ArrRandom(10, -99, 99);

 B.Println;

 B.Where(k -> k > 0).Sum.Println;

 B.Where(k -> k <0).Count.Println;

end.

Объяснение:

Answer 2

Вот пример решения вашей задачи на языке Паскаль:

pascalCopy code
program ArrayExample;

const
  SIZE = 10;

var
  B: array[1..SIZE] of Integer;
  i, positiveSum, negativeCount: Integer;

begin
  { Заполнение массива }
  for i := 1 to SIZE do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(B[i]);
  end;

  { Вывод массива на экран }
  WriteLn('Массив B:');
  for i := 1 to SIZE do
    WriteLn(B[i]);

  { Подсчет суммы положительных и количества отрицательных элементов }
  positiveSum := 0;
  negativeCount := 0;
  for i := 1 to SIZE do
  begin
    if B[i] > 0 then
      positiveSum := positiveSum + B[i]
    else if B[i] < 0 then
      negativeCount := negativeCount + 1;
  end;

  { Вывод результатов }
  WriteLn('Сумма положительных элементов: ', positiveSum);
  WriteLn('Количество отрицательных элементов: ', negativeCount);

  ReadLn;
end.

В этом примере создается массив B из 10 целых чисел. Затем пользователю предлагается ввести каждый элемент массива. После заполнения массива, он выводится на экран. Затем выполняется подсчет суммы положительных элементов и количества отрицательных элементов в массиве. Результаты подсчета выводятся на экран.