Question

(Pascal) - найти количество отрицательных элементов одномерного- динамического массива А[N] состоящего из элементов целого типа.

Answer 1

var a:array of integer;

i,n,k:integer;

begin

write('Введите количество элементов массива: ');

readln (n);

a:=new integer[n];

write ('Массив: ');

for i:=0 to n-1 do

begin

a[i]:=random(199)-99;

if a[i] < 0 then k:=k+1;

write (a[i]:5);

end;

writeln;

write ('Количество отрицательных элементов ',k)

end.

Answer 2

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

1. Объявите переменную count и инициализируйте ее нулем. Эта переменная будет использоваться для подсчета количества отрицательных элементов.

2. Создайте динамический массив А[N] и заполните его значениями.

3. Пройдитесь по всем элементам массива А[N] и проверьте, является ли каждый элемент отрицательным. Если элемент отрицательный, увеличьте значение переменной count на единицу.

4. Выведите значение переменной count, которое будет содержать количество отрицательных элементов в массиве А[N].

Вот пример кода на языке Pascal, реализующего описанный алгоритм:

program CountNegativeElements;

var
  A: array of Integer;
  N, count, i: Integer;

begin
  Write('Введите размер массива N: ');
  Readln(N);

SetLength(A, N);

for i := 0 to N - 1 do
  begin
    Write('Введите элемент A[', i, ']: ');
    Readln(A[i]);
  end;

count := 0;

for i := 0 to N - 1 do
  begin
    if A[i] < 0 then
      count := count + 1;
  end;

Writeln('Количество отрицательных элементов: ', count);
end.

Обратите внимание, что в данном примере пользователю предлагается ввести размер массива и значения элементов с клавиатуры. Вы можете изменить эту часть кода в соответствии с вашими потребностями.

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