Question

 Помогите пожалуйста!На языке Паскаль В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1.  Количество элементов массива, равных нулю. 2.         Сумму элементов массива, расположенных после минимального элемента. Упорядочить элементы массива по возрастанию модулей.

Answer 1

Примерный смысл должен быть понятен. Писал с телефона, возможны опечатки
var i,n,k,z,sum:real;
a:array[1..n];
begin
for i=1 to n do
if a[i]=0 then k=k+1
end;
for i=1 to n do
if a[i]<z then z:=i;
end;
for i := z to n do read(a[i]);
sum := 0; 
for i := 1 to n do sum := sum + a[i];
end.

Answer 2

Конечно, вот пример реализации задачи на языке Pascal:

pascalCopy code
program ArrayOperations;

const
  N = 100; // Максимальное количество элементов в массиве

var
  arr: array[1..N] of real;
  n, i, zeroCount, minIndex: integer;
  minElement, sumAfterMin: real;

procedure Swap(var a, b: real);
var
  temp: real;
begin
  temp := a;
  a := b;
  b := temp;
end;

begin
  // Ввод количества элементов массива
  writeln('Введите количество элементов массива (не более ', N, '): ');
  readln(n);

  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
    readln(arr[i]);

  // Инициализация переменных
  zeroCount := 0;
  minElement := arr[1];
  minIndex := 1;
  sumAfterMin := 0;

  // Поиск количества элементов, равных нулю, и минимального элемента
  for i := 1 to n do
  begin
    if arr[i] = 0 then
      zeroCount := zeroCount + 1;
    if arr[i] < minElement then
    begin
      minElement := arr[i];
      minIndex := i;
    end;
  end;

  // Вычисление суммы элементов после минимального элемента
  for i := minIndex + 1 to n do
    sumAfterMin := sumAfterMin + arr[i];

  // Вывод результатов
  writeln('Количество элементов массива, равных нулю: ', zeroCount);
  writeln('Сумма элементов массива, расположенных после минимального элемента: ', sumAfterMin);

  // Сортировка массива по возрастанию модулей
  for i := 1 to n - 1 do
  begin
    for j := i + 1 to n do
    begin
      if abs(arr[i]) > abs(arr[j]) then
        Swap(arr[i], arr[j]);
    end;
  end;

  // Вывод отсортированного массива
  writeln('Массив после сортировки по возрастанию модулей:');
  for i := 1 to n do
    writeln(arr[i]);
end.

В этой программе мы сначала вводим элементы массива, затем вычисляем количество элементов, равных нулю, и сумму элементов после минимального элемента. После этого мы сортируем массив по возрастанию модулей и выводим результаты.