FAQ Infinity

Составляем программу на Pascal для подсчета суммы меньших элементов массива

Задача

Нам нужно написать программу, которая будет считать сумму элементов массива, которые меньше своих предыдущих элементов.

Постановка задачи

Задача решается следующим образом:

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

Алгоритм программы

Алгоритм программы выглядит следующим образом:

  1. Создаем массив из 14 элементов
  2. Заполняем массив произвольными числами
  3. Объявляем переменную sum
  4. Присваиваем переменной sum значение 0
  5. Проходимся по массиву, начиная с первого элемента
  6. Если текущий элемент меньше предыдущего, то добавляем его значение к переменной sum
  7. После прохождения по массиву выводим полученную сумму на экран

Программа на Pascal

program sum_less_elements;

var
  arr: array[1..14] of integer;
  i, sum: integer;

begin
  { Заполняем массив произвольными числами }
  randomize;
  for i := 1 to 14 do 
    arr[i] := random(50);

  { Инициализируем переменную sum }
  sum := 0;

  { Проходимся по массиву и считаем сумму меньших элементов }
  for i := 2 to 14 do 
    if arr[i] < arr[i-1] then 
      sum := sum + arr[i];

  { Выводим полученную сумму на экран }
  writeln('Сумма элементов, меньших своих предыдущих: ', sum);
end.

Итог

Теперь мы знаем, как написать программу на Pascal для подсчета суммы элементов массива, которые меньше своих предыдущих. Воспользуйтесь этим алгоритмом для решения своих задач!