Question

Посчитать в массиве до 10 элементов от -10 до 10 количество отрицательных, положительных и нулевых элементов pascal

Answer 1

Ответ:

Объяснение:

Сразу с заполнением массива числами.

var mn,mp,mc:integer;

mas:array [-10..10] of integer;

begin

 for var i:=-10 to 10 do begin

   readln (mas[i]);

   if mas[i]=0 then

     mn:=mn+1;

   if mas[i]<0 then

     mc:=mc+1;

   if mas[i]>0 then

     mp:=mp+1;

 end;

 writeln ('Положительных элементов: ',mp);

 writeln ('Отрицательных элементов: ',mc4);

 writeln ('Нулевых элементов: ',mn);

end.

Answer 2

Конечно, вот пример кода на Pascal, который позволяет посчитать количество отрицательных, положительных и нулевых элементов в массиве:

pascalCopy code
program CountElements;

const
  MAX_SIZE = 10;

var
  arr: array[1..MAX_SIZE] of Integer;
  i, negativeCount, positiveCount, zeroCount: Integer;

begin
  // Инициализация массива случайными числами от -10 до 10
  randomize;
  for i := 1 to MAX_SIZE do
  begin
    arr[i] := random(21) - 10; // Генерация чисел от -10 до 10
  end;

  // Инициализация счетчиков
  negativeCount := 0;
  positiveCount := 0;
  zeroCount := 0;

  // Подсчет отрицательных, положительных и нулевых элементов
  for i := 1 to MAX_SIZE do
  begin
    if arr[i] < 0 then
      negativeCount := negativeCount + 1
    else if arr[i] > 0 then
      positiveCount := positiveCount + 1
    else
      zeroCount := zeroCount + 1;
  end;

  // Вывод результатов
  writeln('Отрицательных элементов: ', negativeCount);
  writeln('Положительных элементов: ', positiveCount);
  writeln('Нулевых элементов: ', zeroCount);
end.

Этот код создает массив из 10 случайных чисел в диапазоне от -10 до 10 и затем подсчитывает количество отрицательных, положительных и нулевых элементов в этом массиве. Результаты подсчета выводятся на экран.