Question

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

Answer 1

Смотрите код во вложении.

Answer 2

Для создания массива А из 10 элементов, принадлежащих промежутку (-50;50), нужно объявить массив некоторого типа (например, целочисленный), и заполнить его случайными числами, учитывая заданный промежуток. Затем можно вывести полученный массив на экран и подсчитать сумму положительных и количество отрицательных элементов.

Вот код на языке Pascal, реализующий данный алгоритм:

program ArrayExample;
uses crt;

const
  N = 10; // количество элементов в массиве
  MinValue = -50; // минимальное значение элемента
  MaxValue = 50; // максимальное значение элемента

var
  A: array[1..N] of integer; // объявление массива
  i: integer; // счетчик
  positiveSum: integer; // сумма положительных элементов
  negativeCount: integer; // количество отрицательных элементов

begin
  // заполнение массива случайными числами
  Randomize;
  for i := 1 to N do
    A[i] := Random(MaxValue - MinValue + 1) + MinValue;

// вывод массива на экран
  writeln('Массив A:');
  for i := 1 to N do
    write(A[i], ' ');
  
  // подсчет суммы положительных и количества отрицательных элементов
  positiveSum := 0;
  negativeCount := 0;
  for i := 1 to N do
  begin
    if A[i] > 0 then
      positiveSum := positiveSum + A[i]
    else if A[i] < 0 then
      negativeCount := negativeCount + 1;
  end;

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

readln;
end.

В результате выполнения данной программы будет создан массив А из 10 элементов, каждый из которых будет случайным образом выбран из промежутка (-50;50). Массив будет выведен на экран, а также будет подсчитана сумма положительных и количество отрицательных элементов, которые также будут выведены на экран.