Создать массив целых чисел и найти сумму нечётных чисел - 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, которая находит сумму нечетных чисел в массиве и выводит ее на экран.

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

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