Подсчитать сумму элементов массива больше нуля - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

Решение задачи: «Подсчитать сумму элементов массива больше нуля»

textual
Листинг программы
var
  A: array [1..5] of integer;
  k, i, sum: integer;
 
begin
  for i := 1 to 5 do
    readln(A[i]);
  sum := 0;
  k := 0;
  for i := 1 to 5 do
    if A[i] > 0 then
    begin
      sum := sum + A[i];
      inc(k);
    end;
  if k <> 0 then
    writeln('Summa = ', sum)
  else  
    writeln('Нет положительных чисел.');
end.

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

В данном коде используется язык программирования Turbo Pascal. Задача заключается в подсчете суммы элементов массива, которые больше нуля. Переменные в коде объявлены следующим образом:

  • A: это массив, который содержит пять элементов целого типа.
  • k, i, sum: это три целочисленные переменные, которые будут использоваться для выполнения операций в цикле. Цикл for выполняется два раза. Первый цикл идет от 1 до 5 и считывает пять элементов из массива A. Второй цикл идет после первого и проверяет каждый элемент массива. Если элемент больше нуля, то он добавляется к переменной sum, а счетчик k увеличивается на единицу. Если после второго цикла переменная k не равна нулю, то выводится сообщение Summa =, а затем значение переменной sum. Если переменная k равна нулю, то выводится сообщение Нет положительных чисел..

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

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