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


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

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.



Для нахождения суммы отрицательных элементов в 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. ```
После запуска этой программы, она выведет на экран массив случайных чисел и сумму отрицательных элементов.
Примечание: Приведенный выше код является примером и может быть изменен в соответствии с вашими требованиями.


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








Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili