Question

Написать программу , которая в последовательности n-чисел, вычисляет сумму нечётных.​ Помогите, очень срочно нужно. (Паскаль)

Answer 1

program test;

var a:array[1..10000000]of integer;

   i,s,n:integer;

begin

writeln ('Сколько чисел в последовательности?');

read(n);

writeln('Сформированная последовательность:');

for i:=1 to n do begin

a[i]:=random(500);

write (a[i]:4);

end;

writeln;

for i:=1 to n do

if i mod 2=0 then s:=s+a[i];

write ('Сумма четных= ',s);

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая вычисляет сумму нечетных чисел в последовательности:

pascalCopy code
program SumOfOddNumbers;

var
  n, i, number, sum: integer;

begin
  sum := 0;
  
  write('Введите количество чисел в последовательности: ');
  readln(n);
  
  writeln('Введите числа:');
  
  for i := 1 to n do
  begin
    readln(number);
    
    if (number mod 2) <> 0 then
      sum := sum + number;
  end;
  
  writeln('Сумма нечетных чисел: ', sum);
  
  readln;
end.

Программа сначала запрашивает количество чисел в последовательности, затем в цикле просит ввести каждое число. Если число нечетное, оно добавляется к переменной sum. В конце программа выводит сумму нечетных чисел.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.