Question

Ребята, срочно очень, помогите, пожалуйста)) в масиві з 12 елементів знайти суму всіх парних елементів в lazarus

Answer 1

ПИТОН

a = [1,2,3,4,5,6,7,8,9,10,11,12]

b = 0

i = 0

while i in range(12):

  b = b + int(a[i])

  i = i+1

print(b)

Answer 2

Для наступного рішення вам потрібно створити масив і знайти суму всіх парних елементів. Ось приклад коду на Pascal в середовищі Lazarus для цієї задачі:

pascalCopy code
program SumOfEvenElements;

var
  arr: array[1..12] of Integer; // Оголошення масиву з 12 елементами
  i, sum: Integer;

begin
  // Заповнення масиву деякими значеннями (це приклад, ви можете вводити значення самостійно)
  for i := 1 to 12 do
    arr[i] := i * 2; // Приклад: заповнюємо масив парними числами від 2 до 24

  // Ініціалізуємо суму нулем
  sum := 0;

  // Обчислюємо суму парних елементів
  for i := 1 to 12 do
  begin
    if arr[i] mod 2 = 0 then
      sum := sum + arr[i];
  end;

  // Виводимо суму парних елементів
  writeln('Сума парних елементів масиву: ', sum);
end.

Цей код створює масив з 12 елементів, заповнює його парними числами від 2 до 24, і потім знаходить суму всіх парних елементів. Результат виводиться на екрані. Ви можете замінити значення в масиві на свої дані, які вам потрібні, і код все одно буде працювати для обчислення суми парних елементів.