Сумма неотрицательных элементов массива, стоящих на четных местах. - Pascal ABC
Формулировка задачи:
Задан одномерный массив А[1..20]. Просуммировать все неотрицательные элементы, стоящие на четных местах
Решение задачи: «Сумма неотрицательных элементов массива, стоящих на четных местах.»
textual
Листинг программы
program str; uses crt; var a: array[1..20] of integer; i, sum: integer; begin for i := 1 to 20 do begin a[i] := random(30) + 1; write(a[i]:4); end; writeln; for i := 1 to 20 do begin if(a[i] > 0) and (a[i] mod 2 = 0) then sum := sum + a[i]; end; writeln(sum); end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal ABC. Переменные в этом коде объявлены следующим образом:
- a - массив из 20 элементов типа integer;
- i - переменная для перебора элементов массива a;
- sum - переменная для хранения суммы неотрицательных элементов массива a, стоящих на четных местах. Код начинается с инициализации всех элементов массива a случайными числами от 1 до 30, включая 1, и вывода этих чисел на экран. Затем происходит перебор всех элементов массива a:
- Если элемент неотрицательный и его индекс четный (т.е. a[i] > 0 и i mod 2 = 0), то к переменной sum прибавляется значение этого элемента.
- После перебора всех элементов выводится на экран сумма неотрицательных элементов массива a, стоящих на четных местах. Таким образом, данный код вычисляет сумму неотрицательных элементов массива a, стоящих на четных местах.