Question

Дано N целых чисел. Найти сумму нечетных чисел Pascal ABC net​

Answer 1

Ответ:

var i,n,s,a:integer;

begin

s:=0;

readln(n);

for i:=1 to n do begin

readln(a);

if a mod 2 <> 0 then

s:=s+a;

end;

writeln(s);

end.

Answer 2

##

var n := ReadInteger('Количество чисел:');

var a := ReadArrInteger('Вводите:', n);

Print('Сумма нечетных:', a.Where(k -> k.IsOdd).Sum)

Answer 3

Для нахождения суммы нечетных чисел в заданном списке N целых чисел, вы можете использовать следующий код на Pascal ABC:

pascalCopy code
program SumOfOddNumbers;

var
  N, i, number, sum: integer;

begin
  sum := 0;

  write('Введите количество чисел N: ');
  readln(N);

  for i := 1 to N do
  begin
    write('Введите число ', i, ': ');
    readln(number);

    if number mod 2 <> 0 then
      sum := sum + number;
  end;

  writeln('Сумма нечетных чисел: ', sum);
end.

Этот код сначала запрашивает у пользователя количество чисел N и затем запрашивает сами числа. Для каждого числа проверяется, является ли оно нечетным (его остаток при делении на 2 не равен 0), и если это так, то оно добавляется к общей сумме. В конце программа выводит сумму нечетных чисел.