Question

задать массив b из 12 целых чисел. вычислить сумму положительных элементов массива. нужно на паскале,помогите пожалуйста!!!

Answer 1

массив задаётся случайными числами

Pascal

var

 a:array[1..12] of integer;

 i, s: integer;

begin

 s:=0;

 randomize;

 for i:=1 to 12 do begin

   a[i]:=random(100)-50;

   write(a[i], ' ');

   if a[i]>0 then s:=s+a[i]

 end;

 writeln();

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

end.

Answer 2

Конечно, я помогу вам с задачей на языке Паскаль.

Ниже приведен код, который создает массив b из 12 целых чисел и вычисляет сумму положительных элементов массива:

program SumOfPositiveElements;

var
  b: array[1..12] of Integer; // объявление массива b
  i, sum: Integer; // переменные для цикла и суммы

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

// заполнение массива b случайными числами
  for i := 1 to 12 do
  begin
    b[i] := Random(21) - 10; // случайное число от -10 до 10
    Write(b[i], ' '); // вывод элемента массива
  end;
  Writeln;

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

// вывод результата
  Writeln('Сумма положительных элементов массива: ', sum);

Readln;
end.

В этом коде мы используем цикл `for` для заполнения массива b случайными числами от -10 до 10. Затем мы проходимся по массиву снова и суммируем все положительные элементы. Результат выводится на экран.

Надеюсь, это поможет вам решить задачу! Если у вас есть еще вопросы, пожалуйста, не стесняйтесь задавать.