Question

Язык программирования - паскаль Составьте программу, которая в одномерном массиве размерностью 12 (элементы массива случайные числа из промежутка от 0 до 6) находит количество элементов равных 3. Оформите вывод элементов на экран в строчку, количество искомых элементов на следующей строке.

Answer 1

// PascalABC.NET

begin

 var a := ArrRandom(12, 0, 6);

 a.Println.Count(p -> p = 3).Print

end.

Answer 2

Конечно! Вот пример программы на языке программирования Паскаль, которая выполняет описанную вами задачу:

pascalCopy code
program CountElements;

const
  ARRAY_SIZE = 12;
  MIN_VALUE = 0;
  MAX_VALUE = 6;
  SEARCH_VALUE = 3;

var
  arr: array[1..ARRAY_SIZE] of Integer;
  count: Integer;
  i: Integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполнение массива случайными числами
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;

  // Вывод элементов массива на экран
  for i := 1 to ARRAY_SIZE do
    Write(arr[i], ' ');

  // Подсчет количества элементов, равных SEARCH_VALUE
  count := 0;
  for i := 1 to ARRAY_SIZE do
  begin
    if arr[i] = SEARCH_VALUE then
      Inc(count);
  end;

  // Вывод количества искомых элементов на экран
  Writeln;
  Writeln('Количество элементов, равных ', SEARCH_VALUE, ': ', count);
end.

Эта программа создает массив arr размером 12 и заполняет его случайными числами от 0 до 6. Затем она выводит элементы массива на экран, разделенные пробелами. После этого программа подсчитывает количество элементов, равных 3, и выводит его на экран.

Обратите внимание, что я использую функцию Randomize, чтобы инициализировать генератор случайных чисел, и функцию Random, чтобы генерировать случайные числа в указанном диапазоне.