Вопрос задан 05.08.2018 в 20:53. Предмет Информатика. Спрашивает Жолдаспаева Сабина.

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

0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Волк Стас.
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.

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

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

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

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

```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. ```

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

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

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос