Question

Заполните два массива N [1..15] и M [1..15] случайными числами в диапозоне от -15 до 20ю Подсчитайте в каждом ммассиве количество положительных и отрицательных значений. Программа должна быть на Pascale, желательно на завтра.

Answer 1

Конечно, вот пример программы на Pascal, которая выполняет задачу, описанную в вашем вопросе. Программа создает два массива N и M, заполняет их случайными числами в диапазоне от -15 до 20, затем подсчитывает количество положительных и отрицательных значений в каждом массиве.

program CountPosNegValues;

const
  N_SIZE = 15;
  M_SIZE = 15;

var
  N, M: array[1..N_SIZE] of integer;
  i, posCountN, negCountN, posCountM, negCountM: integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

// Заполнение массива N случайными числами от -15 до 20
  for i := 1 to N_SIZE do
    N[i] := Random(36) - 15;

// Заполнение массива M случайными числами от -15 до 20
  for i := 1 to M_SIZE do
    M[i] := Random(36) - 15;

// Инициализация счетчиков
  posCountN := 0;
  negCountN := 0;
  posCountM := 0;
  negCountM := 0;

// Подсчет положительных и отрицательных значений в массиве N
  for i := 1 to N_SIZE do
  begin
    if N[i] > 0 then
      posCountN := posCountN + 1
    else if N[i] < 0 then
      negCountN := negCountN + 1;
  end;

// Подсчет положительных и отрицательных значений в массиве M
  for i := 1 to M_SIZE do
  begin
    if M[i] > 0 then
      posCountM := posCountM + 1
    else if M[i] < 0 then
      negCountM := negCountM + 1;
  end;

// Вывод результатов
  writeln('Массив N:');
  writeln('Положительные элементы: ', posCountN);
  writeln('Отрицательные элементы: ', negCountN);

writeln;

writeln('Массив M:');
  writeln('Положительные элементы: ', posCountM);
  writeln('Отрицательные элементы: ', negCountM);
end.

Программа использует встроенную функцию `Random` для генерации случайных чисел. Значения элементов массивов N и M заполняются в циклах, затем в других циклах подсчитывается количество положительных и отрицательных значений в каждом массиве. Наконец, результаты выводятся на экран.