Question

Найти сумму нечетных элементов и заменить их этой суммой. Обычный Pascal. Одномерный массив.

Answer 1

Ответ:uses crt;

const n=8;

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

i,s:integer;

 

BEGIN

clrscr;

 

for i:=1 to n do

a[i]:=random(10);

 

for i:=1 to n do

 write(a[i]:4);

 writeln;

 

  s:=0;

  for i:=1 to n do

   if a[i] mod 2<>0 then

     s:=s+a[i];

 

     write('Symma = ',s);

 

readkey;

END.

Объяснение:

Answer 2

Для решения данной задачи в Pascal с использованием одномерного массива, можно использовать следующий код:

pascalCopy code
program SumOddElements;

const
  N = 10; // Количество элементов в массиве

var
  arr: array[1..N] of Integer;
  i, sum: Integer;

begin
  // Инициализация массива случайными числами
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100); // Генерация случайного числа от 0 до 99

  // Вывод исходного массива
  WriteLn('Исходный массив:');
  for i := 1 to N do
    Write(arr[i], ' ');

  // Вычисление суммы нечетных элементов
  sum := 0;
  for i := 1 to N do
  begin
    if arr[i] mod 2 <> 0 then
      sum := sum + arr[i];
  end;

  // Замена нечетных элементов суммой
  for i := 1 to N do
  begin
    if arr[i] mod 2 <> 0 then
      arr[i] := sum;
  end;

  // Вывод измененного массива
  WriteLn;
  WriteLn('Массив после замены:');
  for i := 1 to N do
    Write(arr[i], ' ');

  ReadLn;
end.

В этом примере массив arr размером N инициализируется случайными числами от 0 до 99. Затем вычисляется сумма нечетных элементов массива и заменяются все нечетные элементы на эту сумму. Наконец, выводится исходный массив и массив после замены.