Question

Составьте программу подсчёта числа различных отрицательных элементов одномерного массива A(Q) Паскаль

Answer 1

//PascalABC.NET 3.1 сборка 1239
begin
   Println(ArrRandom(100, -50 ,50).Count(x->x<0));
end.

Answer 2

Привет! Вот простая программа на языке Pascal для подсчета числа различных отрицательных элементов одномерного массива A(Q):

vbnetCopy code
program NegativeElementsCount;
var
  A: array of Integer;
  Q, i, count: Integer;
  negatives: set of Integer;
begin
  write('Enter the size of the array: ');
  readln(Q);
  
  SetLength(A, Q);
  
  write('Enter the elements of the array: ');
  for i := 0 to Q - 1 do
  begin
    readln(A[i]);
    
    if A[i] < 0 then
      negatives := negatives + [A[i]];
  end;
  
  count := negatives.Count;
  writeln('The number of different negative elements in the array is: ', count);
  
  readln;
end.

В этой программе мы объявляем массив A типа Integer, а также переменные Q (размер массива), i (счетчик цикла), count (количество различных отрицательных элементов) и множество negatives для хранения уникальных отрицательных элементов.

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

Надеюсь, это поможет!