Question

Случайным образом получить 15 чисел, числа в диапазоне [-50, 50]. 2. Определить количество отрицательных среди них. 3. Определить минимальное. 4. Определить среднее арифметическое среди отрицательных. Необходимо сделать в паскале

Answer 1

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,-50,50); a.Println;
  Writeln('Отрицательных: ',a.Where(t->t<0).Count);
  Writeln('Минимум: ',a.Min);
  Writeln('Среднее арифметическое отрицательных: ',
      a.Where(t->t<0).Average)
end.

Пример
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125

Answer 2

Const n=15;
var a:array [1..n] of integer;
i,k,m,s:integer;
begin
for i:= 1 to n do
a[i]:= random(101)-50;
writeln(a);
for i:=1 to n do
if a[i] < 0 then k:=k+1;
writeln('Отрицательных элементов: ',k);
m:=a[1];
for i:=2 to n do
if a[i] < m then m:=a[i];
writeln('Минимальный элемент: ',m);
s:=0;
for i:=1 to n do
if a[i] < 0 then s:=s+a[i];
writeln('Среднее арифметическое отрицательных элементов: ',s/k)
end.

Answer 3

Для решения этой задачи на языке Pascal (также известном как Delphi) вам понадобится использовать генератор случайных чисел и произвести необходимые вычисления. Вот пример кода, который выполняет указанные действия:

pascalCopy code
program RandomNumbers;

const
  N = 15; // Количество случайных чисел
  MinValue = -50; // Минимальное значение
  MaxValue = 50; // Максимальное значение

var
  Numbers: array[1..N] of Integer;
  NegativeCount, MinNumber, SumNegative, i: Integer;
  NegativeExists: Boolean;

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

  // Генерация случайных чисел и подсчет количества отрицательных
  NegativeCount := 0;
  NegativeExists := False;
  for i := 1 to N do
  begin
    Numbers[i] := Random(MaxValue - MinValue + 1) + MinValue;
    if Numbers[i] < 0 then
    begin
      Inc(NegativeCount);
      SumNegative := SumNegative + Numbers[i];
      NegativeExists := True;
    end;
  end;

  // Поиск минимального числа
  MinNumber := Numbers[1];
  for i := 2 to N do
  begin
    if Numbers[i] < MinNumber then
      MinNumber := Numbers[i];
  end;

  // Вывод результатов
  writeln('Сгенерированные числа:');
  for i := 1 to N do
    write(Numbers[i], ' ');

  writeln;
  writeln('Количество отрицательных чисел: ', NegativeCount);

  if NegativeExists then
  begin
    writeln('Минимальное число: ', MinNumber);
    writeln('Среднее арифметическое отрицательных чисел: ', SumNegative / NegativeCount:0:2);
  end
  else
    writeln('Отрицательных чисел нет.');

  readln;
end.

Программа генерирует 15 случайных чисел в диапазоне [-50, 50], определяет количество отрицательных чисел среди них, находит минимальное число и среднее арифметическое среди отрицательных (если они присутствуют).