Question

Составьте на языке программирования Паскаль программу, которая считает сумму нечетных элементов массива а, состоящего из 10 элементов. Массив заполняется элементами с клавиатуры​

Answer 1

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

i,s: integer;

begin

 s:=0;

 for i:=1 to 10 do readln (a[i]);

 for i:=1 to 10 do if a[i] mod 2=1 then s:=s+a[i];

 writeln (s)

end.

Answer 2

Вот пример программы на языке Pascal, которая считает сумму нечетных элементов массива а, состоящего из 10 элементов:

pascalCopy code
program SumOfOddElements;

var
  a: array[1..10] of Integer;
  i, sum: Integer;

begin
  writeln('Введите элементы массива:');
  for i := 1 to 10 do
  begin
    readln(a[i]);
  end;

  sum := 0;

  for i := 1 to 10 do
  begin
    if a[i] mod 2 <> 0 then
    begin
      sum := sum + a[i];
    end;
  end;

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

Программа сначала запрашивает у пользователя ввод элементов массива, затем проходит по массиву и складывает нечетные элементы в переменную sum. Наконец, программа выводит полученную сумму на экран.