Question

Дано 10 чисел найти сумму нечётных чисел? Pascal

Answer 1

program fgh;

var i, s, n, a:integer;

begin

s:=0;

writeln('введите 10 чисел');

for i:= 1 to 10 do

begin

readln(a);

if a mod 2 <> 0 then

s:=s+a;

end;

writeln('сумма= ', s);

end.

Answer 2

Для нахождения суммы нечетных чисел из данного списка чисел в Pascal, вам потребуется создать переменную для хранения суммы и затем пройтись по всем числам в списке, добавляя к сумме только нечетные числа. Вот пример кода на Pascal:

pascalCopy code
program SumOfOddNumbers;

var
  numbers: array[1..10] of Integer;
  sumOfOdds: Integer;
  i: Integer;

begin
  { Введите 10 чисел }
  writeln('Введите 10 чисел:');
  for i := 1 to 10 do
  begin
    readln(numbers[i]);
  end;

  { Инициализируем сумму нулем }
  sumOfOdds := 0;

  { Найдем сумму нечетных чисел }
  for i := 1 to 10 do
  begin
    if numbers[i] mod 2 <> 0 then
    begin
      sumOfOdds := sumOfOdds + numbers[i];
    end;
  end;

  { Выведем результат }
  writeln('Сумма нечетных чисел: ', sumOfOdds);

end.

Пользователю предлагается ввести 10 чисел, затем программа проверяет каждое число на нечетность с помощью оператора mod 2, и если число нечетное, добавляет его к переменной sumOfOdds. После обработки всех чисел выводится результат - сумма нечетных чисел.