Question

Найти сумму тех элементов массива, которые имеют положительные значения(для Паскаль)​

Answer 1

Программа:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

const

 start = -100;

 finish = 50;

 count = 100;

var

 X : array of integer; {массив}

 i : integer; {Счётчик цикла}

 S : integer; {Сумма положительных}

begin

Randomize;

SetLength(X, count+1);

{Генерация массива из 100 элементов от -50 до 50}

for i := 1 to count do

 X[i] := Round( Random * start) + finish;

{Вывод сгенерированного массива на экран}

for i := 1 to count do

 write(X[i]:4);

writeln; writeln;

{Подсчёт положительных элементов}

S := 0;

for i := 1 to count do

 if (x[i] > 0) then

  S := S + x[i];

 

writeln('Сумма положительных S = ', S);

end.

Answer 2

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

pascalCopy code
program SumOfPositiveElements;
var
  arr: array[1..10] of integer; // Замените 10 на размер вашего массива
  i, sum: integer;
begin
  sum := 0;

  // Заполните массив вашими данными
  for i := 1 to 10 do
  begin
    // Вводите элементы массива здесь
    // Например, чтение элементов с клавиатуры:
    write('Введите элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Вычисление суммы положительных элементов
  for i := 1 to 10 do
  begin
    if arr[i] > 0 then
      sum := sum + arr[i];
  end;

  writeln('Сумма положительных элементов: ', sum);
end.

Замените 10 на размер вашего массива и измените ввод элементов массива, если необходимо. После запуска программы она запросит вас ввести элементы массива и затем выведет сумму положительных элементов.