Question

СРОЧНО ПОМОГИТЕ ПОЖАЛУЙСТА!!!! Задан массив из 10 элементов случайными числами от -30 до 30, найти: 1) сумму элементов массива, 2) количество отрицательных элементов, 3) вывести на экран сам массив (Pascal ABC)​

Answer 1

const

N = 10; // размер массива

var

a: array[1..N] of integer; // массив

i: integer; // счетчик цикла

sum, count: integer; // sum - сумма элементов массива, count - количество отрицательных элементов

begin

randomize; // инициализируем генератор случайных чисел

// заполняем массив случайными числами от -30 до 30

for i := 1 to N do

a[i] := random(61) - 30;

// инициализируем сумму и количество отрицательных элементов нулями

sum := 0;

count := 0;

// вычисляем сумму элементов массива и количество отрицательных элементов

for i := 1 to N do

begin

sum := sum + a[i];

if a[i] < 0 then

count := count + 1;

end;

// выводим на экран сам массив

for i := 1 to N do

writeln(a[i]);

// выводим на экран сумму элементов массива и количество отрицательных элементов

writeln('Sum: ', sum);

writeln('Count: ', count);

end.

Answer 2

Конечно, я могу помочь вам с этим. Вот пример кода на языке Pascal ABC для решения вашей задачи:

pascalCopy code
program ArrayOperations;

const
  N = 10; // Количество элементов в массиве
  MinValue = -30; // Минимальное случайное число
  MaxValue = 30; // Максимальное случайное число

var
  arr: array[1..N] of Integer;
  i, sum, countNegatives: Integer;

begin
  Randomize;

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

  // Вывод массива на экран
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  // Вычисление суммы элементов массива и подсчет отрицательных элементов
  sum := 0;
  countNegatives := 0;
  for i := 1 to N do
  begin
    sum := sum + arr[i];
    if arr[i] < 0 then
      countNegatives := countNegatives + 1;
  end;

  writeln;
  writeln('Сумма элементов массива:', sum);
  writeln('Количество отрицательных элементов:', countNegatives);

  readln;
end.

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

Надеюсь, этот код поможет вам решить вашу задачу. Если у вас есть ещё вопросы, пожалуйста, дайте мне знать!