Question

Найти сумму отрицательных элементов Pascal 5 класс

Answer 1

Program Project1;

var m:array of integer; res, n, i:integer;

begin
  repeat
    write('n: '); readln(n);
    SetLength(m, Length(m)+1);
    m[Length(m)-1]:=n;
  until n=0;

  res:=0;
  for i:=1 to Length(m)-1 do
   if m[i]<0 then res:=res+m[i];

  writeln('Result:=', res);

  readln;
end.

Answer 2

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

1. Объявите массив, в котором будут храниться элементы. 2. Заполните массив случайными числами. 3. Инициализируйте переменную, в которой будет храниться сумма отрицательных элементов. 4. Пройдитесь по всем элементам массива и, если элемент отрицательный, добавьте его к сумме. 5. Выведите полученную сумму на экран.

Вот пример программы на языке Pascal, которая выполняет указанные шаги:

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

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

Примечание: Приведенный выше код является примером и может быть изменен в соответствии с вашими требованиями.