Question

Используя средства языка Паскаль, в одномерном массиве с 10 элементами Ai=ln((i^3+6i)/(3i+10)) подсчитать количество отрицательных элементов. Вывести массив и результат на экран

Answer 1

PascalABC.NET ₃.₆.₃.₂₅₇₇

Ответ:

• ##  
• var a := ArrGen(10, i -> Ln(((i+1)**3 + 6*(i+1))/(3*(i+1) + 10)));
• a.Println;
• a.Count(x -> x<0).Print

Пример работы:

Answer 2

Конечно, вот как это можно сделать на языке Pascal:

pascalCopy code
program CountNegativeElements;

uses
  Math; // Для использования функции ln

var
  A: array[1..10] of Real;
  i, negativeCount: Integer;

begin
  // Заполняем массив A
  for i := 1 to 10 do
    A[i] := ln((i * i * i + 6 * i) / (3 * i + 10));

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

  // Выводим массив A и результат на экран
  writeln('Массив A:');
  for i := 1 to 10 do
    writeln('A[', i, '] = ', A[i]:0:4);
  
  writeln('Количество отрицательных элементов: ', negativeCount);
end.

Просто скопируйте этот код в среду программирования, поддерживающую язык Pascal (например, Free Pascal), и выполните его. Вы увидите вывод массива A и количество отрицательных элементов.