Составьте программу вычисления в массиве суммы отрицательных элементов - 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]; // прибавляем его к сумме
- Вывод суммы на экран
- Конец программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д