Question

СРОЧНО НУЖНА ПОМОЩЬ Дан массив из 50 элементов, значения которых формируются случайно и лежат в диапазоне от -50 до 49 включительно. Требуется вывести значения в диапазоне от -5 до 5 включительно и подсчитать их количество. написать на языке паскаль

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(50, -50, 49);

 a.Println.Where(t -> t.InRange(-5, 5)).Println(', ').Count.Println

end.

Answer 2

Конечно, вот пример программы на языке Pascal, который выполняет задачу, описанную в вашем вопросе:

pascalCopy code
program CountValuesInRange;
const
  ARRAY_SIZE = 50;
  LOWER_LIMIT = -50;
  UPPER_LIMIT = 49;
  RANGE_LOWER = -5;
  RANGE_UPPER = 5;
var
  arr: array[1..ARRAY_SIZE] of Integer;
  count: Integer;
  i: Integer;
begin
  // Заполняем массив случайными значениями
  Randomize;
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(UPPER_LIMIT - LOWER_LIMIT + 1) + LOWER_LIMIT;

  // Выводим значения в заданном диапазоне и подсчитываем их количество
  count := 0;
  for i := 1 to ARRAY_SIZE do
  begin
    if (arr[i] >= RANGE_LOWER) and (arr[i] <= RANGE_UPPER) then
    begin
      writeln(arr[i]);
      count := count + 1;
    end;
  end;

  writeln('Количество значений в диапазоне от -5 до 5: ', count);
end.

Программа объявляет массив arr размером 50 и заполняет его случайными значениями в диапазоне от -50 до 49. Затем она проходит по массиву, выводит значения в заданном диапазоне (-5 до 5) и подсчитывает их количество. Наконец, программа выводит количество значений в диапазоне.