Question

СРОЧНО!!! напиши на Паскале программу поиска суммы отрицательных чисел СРОЧНО!!!

Answer 1

Ответ:

Sum:=0;

for i:=1 to 10 do

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

Объяснение:вроде так если не ошибаюсь

Answer 2

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

program SumOfNegativeNumbers;
var
  a: array[1..10] of integer; // объявляем массив из 10 целых чисел
  i, sum: integer; // объявляем переменные для индекса и суммы
begin
  sum := 0; // инициализируем сумму нулем
  for i := 1 to 10 do // цикл по элементам массива
  begin
    readln(a[i]); // считываем очередной элемент массива с клавиатуры
    if a[i] < 0 then // если элемент отрицательный
      sum := sum + a[i]; // добавляем его к сумме
  end;
  writeln('Сумма отрицательных чисел равна ', sum); // выводим сумму на экран
end.

Надеюсь, это поможет вам решить вашу задачу. Удачи!