Составьте программу вычисления в массиве суммы отрицательных элементов - 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.

Объяснение кода листинга программы

  1. Объявление переменных:
    • i, n, sum: integer;
    • a: array [1..100] of integer;
  2. Запрос на ввод размера массива
  3. Инициализация суммы равной 0
  4. Цикл заполнения массива a отрицательными числами
    • a[i] := -10+random(21); // генерация случайного отрицательного числа от -10 до 10
    • write(a[i]:3); // вывод на экран значения элемента массива, обрезанного до трех цифр
    • if (a[i] < 0) then // если элемент отрицательный sum := sum + a[i]; // прибавляем его к сумме
  5. Вывод суммы на экран
  6. Конец программы

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы