Question

Подсчитать количество отрицательных элементов массива, состоящего из целых элементов. паскаль. ПЛЗ

Answer 1

program massiv;

uses crt;

type Mass = array of Integer;

var

n, i, x : integer;

mas : mass;

begin

WriteLn('Сколько значений нужно поместить в массив?');

readLn(n);

SetLength(mas, n);

for i := 0 to n-1 do

begin  

WriteLn('Введите ' + i + ' элемент в массив');

readln(mas[i]);

end;

for i := 0 to n-1 do

if(mas[i] < 0) then

x:= x +1;

WriteLn('Всего отрицательных элементов = '+ x);

ReadLn();

end.

Answer 2

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

pascalCopy code
program CountNegativeElements;

const
  N = 10; // Размер массива (можете изменить на нужное значение)

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

begin
  // Заполнение массива произвольными значениями
  Randomize; // Инициализируем генератор случайных чисел
  for i := 1 to N do
    arr[i] := Random(201) - 100; // Генерируем числа от -100 до 100

  // Вывод массива для наглядности (необязательно)
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;

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

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

  // Завершение программы
  ReadLn;
end.

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