Question

Дан массив из N действительных чисел. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов. (в Pascal)

Answer 1

Замените число 10 в задании массива и циклах на нужное число действительных чисел (выделено жирным)

var

 i, a, b, c: integer;

 m: array[1..10] of real;

begin

 for i := 1 to 10 do readln(m[i]);

 for i := 1 to 10 do

 begin

   if m[i] > 0 then a := a + 1;

   if m[i] = 0 then b := b + 1;

   if m[i] < 0 then c := c + 1;

 end;  

 writeln(с, ' ', a, ' ', b);

end.

Answer 2

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

pascalCopy code
program CountElements;

const
  N = 10; // Замените на необходимый размер массива

var
  numbers: array[1..N] of real;
  i, positiveCount, negativeCount, zeroCount: integer;

begin
  // Заполнение массива случайными значениями (для примера)
  randomize;
  for i := 1 to N do
    numbers[i] := random * 10 - 5; // Генерация случайных чисел от -5 до 5

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

  // Подсчет элементов
  for i := 1 to N do
  begin
    if numbers[i] > 0 then
      positiveCount := positiveCount + 1
    else if numbers[i] < 0 then
      negativeCount := negativeCount + 1
    else
      zeroCount := zeroCount + 1;
  end;

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

  readln;
end.

В этом примере создается массив из 10 действительных чисел и заполняется случайными значениями от -5 до 5. Затем программа подсчитывает количество положительных, отрицательных и нулевых элементов в массиве и выводит результаты. Вы можете изменить значение константы N на желаемый размер вашего массива.