Question

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

Answer 1

Ответ:

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

begin

 var A := ArrRandom(10, -99, 99);

 A.Where(p->p mod 8 = 0).Sum.Println;

end.

Объяснение:

Answer 2

Конечно, вот пример кода на языке Pascal, который находит сумму элементов массива, которые делятся на 8:

pascalCopy code
program SumOfElementsDivisibleBy8;

const
  MaxArraySize = 100;

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

begin
  Write('Введите размер массива: ');
  ReadLn(n);
  
  WriteLn('Введите элементы массива:');
  for i := 1 to n do
  begin
    Write('arr[', i, '] = ');
    ReadLn(arr[i]);
  end;
  
  sum := 0;
  for i := 1 to n do
  begin
    if arr[i] mod 8 = 0 then
      sum := sum + arr[i];
  end;
  
  WriteLn('Сумма элементов, делящихся на 8: ', sum);
end.

Программа сначала запрашивает размер массива, затем элементы массива, после чего вычисляет сумму элементов, делящихся на 8, и выводит результат.