Дан линейный массив, содержащий целые числа. Подсчитать сумму положительных чисел и распечатать номера таких чисел в Pascal

Чтобы подсчитать сумму положительных чисел в линейном массиве и распечатать индексы этих чисел на языке Паскаль, можно выполнить следующие шаги:

1. Создать массив и заполнить его целыми числами.
2. Инициализировать переменные для хранения суммы положительных чисел и для индекса.
3. Использовать цикл для перебора элементов массива, проверяя, является ли число положительным.
4. Если число положительное, добавить его к сумме и распечатать индекс.

Вот пример кода на Паскале:

program SumPositiveNumbers;

var
  arr: array[1..100] of Integer; // Массив чисел
  n, i: Integer; // n - количество элементов в массиве, i - счётчик
  sum: Integer; // Сумма положительных чисел

begin
  // Ввод количества элементов
  Write('Введите количество элементов в массиве: ');
  ReadLn(n);

  // Ввод элементов массива
  WriteLn('Введите ', n, ' целых чисел:');
  for i := 1 to n do
  begin
    Read(arr[i]);
  end;

  // Инициализация суммы
  sum := 0;

  // Подсчёт суммы положительных чисел и вывод их индексов
  WriteLn('Индексы положительных чисел:');
  for i := 1 to n do
  begin
    if arr[i] > 0 then
    begin
      sum := sum + arr[i];
      Write(i, ' '); // Вывод индекса
    end;
  end;

  // Вывод суммы положительных чисел
  WriteLn;
  WriteLn('Сумма положительных чисел: ', sum);
end.

Объяснение кода:

• Мы создаем массив arr на 100 элементов и запрашиваем у пользователя количество элементов.
• После ввода элементов массива программа проходит по каждому элементу и проверяет, является ли он положительным.
• Если да, то добавляет его к sum и выводит индекс этого элемента.
• В конце она выводит общую сумму положительных чисел.

Таким образом, вы сможете не только узнать сумму положительных чисел, но и увидеть их индексы в массиве. Если у вас есть дополнительные вопросы или требуется уточнение, не стесняйтесь задавать!