Создать массив целых чисел и найти сумму нечётных чисел - Pascal ABC
Формулировка задачи:
Написать программу,которая создаёт массив N целых чисел и с помощью процедуры,находит сумму нечётных чисел.
Решение задачи: «Создать массив целых чисел и найти сумму нечётных чисел»
textual
Листинг программы
{Создать массив целых чисел и найти сумму нечётных чисел} const n_max=100; type arr=array[1..n_max] of integer; var x:arr; n:integer; s:integer; procedure createarray(var a:arr); var i:integer; begin writeln('Array: '); for i:=1 to n do begin a[i]:=random(n)+1; write(a[i]:4); end; writeln; end; procedure sum(a:arr;var summ:integer); var i:integer; begin for i:=1 to n do if odd(a[i]) then summ:=summ+a[i]; end; begin randomize; readln(n); createarray(x); sum(x,s); writeln(s); end.
Объяснение кода листинга программы
В данном коде создается массив целых чисел и находится сумма нечетных чисел. Переменные и их значения объявлены следующим образом:
- n_max - максимальное значение числа, которое может быть в массиве (100)
- arr - тип данных для массива
- x - переменная для хранения массива
- n - переменная для хранения количества чисел в массиве
- s - переменная для хранения суммы нечетных чисел Функция createarray создает массив случайных чисел от 1 до n_max и выводит его на экран. Функция sum находит сумму нечетных чисел в массиве. Она проходит по всем элементам массива, проверяет, является ли число нечетным, и если да, то добавляет его к сумме. В основной части кода сначала вызывается функция randomize, чтобы установить начальное значение генератора случайных чисел. Затем пользователю предлагается ввести количество чисел в массиве (n). После этого создается массив x с помощью функции createarray. Наконец, вызывается функция sum, которая находит сумму нечетных чисел в массиве и выводит ее на экран.