Составьте программу вычисления в массиве суммы отрицательных элементов - Free Pascal
Формулировка задачи:
2. Составьте программу вычисления в массиве суммы отрицательных элементов.
Помогите пожалуйста
Решение задачи: «Составьте программу вычисления в массиве суммы отрицательных элементов»
textual
Листинг программы
program pr;
var
i, n, sum: integer;
a: array [1..100] of integer;
begin
writeln('Введите размер массива');
readln(n);
sum := 0;
for i := 1 to n do
begin
a[i] := -10+random(21); // диапазон заполнения ставь любой (здесь от -10 до 10)
write(a[i]:3);
if (a[i] < 0) then
sum := sum + a[i];
end;
writeln;
writeln('Сумма отрицательных массива элементов: ', sum);
end.
Объяснение кода листинга программы
- Объявление переменных:
- i, n, sum: integer;
- a: array [1..100] of integer;
- Запрос на ввод размера массива
- Инициализация суммы равной 0
- Цикл заполнения массива a отрицательными числами
- a[i] := -10+random(21); // генерация случайного отрицательного числа от -10 до 10
- write(a[i]:3); // вывод на экран значения элемента массива, обрезанного до трех цифр
- if (a[i] < 0) then // если элемент отрицательный sum := sum + a[i]; // прибавляем его к сумме
- Вывод суммы на экран
- Конец программы