Question

ПОМОГИТЕ!!! СРОЧНО НУЖНО!PASCAlВведите с клавиатуры одномерный массив P(T), элементами которого являются положительные и отрицательные числа. Определите среднее арифметическое положительных чисел, наименьшее среди первых 9-ти чисел и частноеот деления наименьшего и среднего арифметического. Сформируйте новый массив R(F), состоящий из элементов массива P(T), которые больше найденного частного.

Answer 1

Uses crt;
var p,r: array [1..10000] of real;
    x,y,t,f,k: integer;
    sum,sr,ch,min: real;
begin
     sum:=0; k:=0; f:=1;
     write('T='); readln(t);
     for x:=1 to t do
     begin
          write('p[',x,']:');
          readln(p[x]);
     end;
     min:=p[1];
     for x:=1 to t do
         if p[x]>0 then begin
            sum:=sum+p[x];
            inc(k);
         end;
     for x:=1 to 9 do
         if p[x]<min then min:=p[x];
     sr:=sum/k;
     ch:=min/sr;
     for x:=1 to t do
         if p[x]>ch then begin
            r[f]:=p[x];
            inc(f);
         end;
     writeln;
     for y:=1 to f-1 do
         writeln('r[',y,']:',r[y]);
     readln;
end.

Answer 2

Для решения данной задачи в Pascal можно использовать следующий код:

program ArrayOperations;
const
  N = 15; // размер массива P(T)
var
  P: array[1..N] of Integer;
  R: array[1..N] of Integer;
  i, countPositives, sumPositives, minFirst9, minDividend: Integer;
  averagePositives, quotient: Real;
begin
  // Ввод элементов массива P(T) с клавиатуры
  writeln('Введите элементы массива P(T):');
  for i := 1 to N do
  begin
    readln(P[i]);
  end;

// Вычисление среднего арифметического положительных чисел
  countPositives := 0;
  sumPositives := 0;
  for i := 1 to N do
  begin
    if P[i] > 0 then
    begin
      countPositives := countPositives + 1;
      sumPositives := sumPositives + P[i];
    end;
  end;
  averagePositives := sumPositives / countPositives;

// Поиск наименьшего среди первых 9-ти чисел
  minFirst9 := P[1]; // Предполагаем, что первый элемент минимальный
  for i := 2 to 9 do
  begin
    if P[i] < minFirst9 then
    begin
      minFirst9 := P[i];
    end;
  end;

// Вычисление частного от деления наименьшего и среднего арифметического
  minDividend := minFirst9;
  quotient := minDividend / averagePositives;

// Формирование нового массива R(F), состоящего из элементов массива P(T), которые больше найденного частного
  countPositives := 0; // Переиспользуем переменную для подсчета элементов нового массива R(F)
  for i := 1 to N do
  begin
    if P[i] > quotient then
    begin
      countPositives := countPositives + 1;
      R[countPositives] := P[i];
    end;
  end;

// Вывод нового массива R(F)
  writeln('Новый массив R(F):');
  for i := 1 to countPositives do
  begin
    writeln(R[i]);
  end;
end.

Этот код решает задачу, в которой вводится одномерный массив `P(T)` с клавиатуры, состоящий из положительных и отрицательных чисел. Затем вычисляется среднее арифметическое положительных чисел, наименьшее значение среди первых 9-ти чисел и частное от деления наименьшего значения на среднее арифметическое. Затем формируется новый массив `R(F)`, состоящий из элементов массива `P(T)`, которые больше найденного частного. Новый массив `R(F)` выводится на экран.

Пожалуйста, обратите внимание, что решение данной задачи предполагает, что размер массива `P(T)` равен 15. Вы можете изменить значение константы `N` в соответствии с вашими требованиями.