Question

Составьте программу вычисления в массиве В, состоящем из восьми элементов, суммы отрицательных элементов. паскаль

Answer 1

     var a,b,sum:integer;
arr :array [0..7] of integer;
begin
sum:=0;
write('введите элементы массива : ');
for a:=0 to 7 do begin
read(b);
arr[a]:=b;
end;
for a:=0 to 7 do begin
if arr[a]<0 then sum:=sum+arr[a];
end;
writeln('сумма отрицательных элементов массива = ',sum);
end.

Answer 2

Вот пример программы на языке Pascal, который вычисляет сумму отрицательных элементов в массиве В, состоящем из восьми элементов:

pascalCopy code
program SumOfNegativeElements;

var
  B: array[1..8] of Integer;
  i, sum: Integer;

begin
  sum := 0;

  writeln('Введите восемь элементов массива B:');

  for i := 1 to 8 do
  begin
    write('B[', i, '] = ');
    readln(B[i]);

    if B[i] < 0 then
      sum := sum + B[i];
  end;

  writeln('Сумма отрицательных элементов в массиве B: ', sum);

end.

Эта программа позволяет пользователю ввести восемь элементов массива B и затем вычисляет сумму всех отрицательных элементов в массиве.