Question

Помогите по информатике paskal; Заполнить массив натуральными числами от 5 до 15 , все четные числа разделить на два и вывести на экран сумму элементов.

Answer 1

Конечно, я могу помочь вам с этим заданием на языке Pascal. Вот пример кода, который заполняет массив натуральными числами от 5 до 15, делит все четные числа на два и выводит сумму элементов:

pascalCopy code
program SumOfEvenNumbers;

var
  arr: array[1..11] of Integer;  // Объявляем массив из 11 элементов
  i, sum: Integer;

begin
  sum := 0;  // Инициализируем сумму нулем

  // Заполняем массив натуральными числами от 5 до 15
  for i := 1 to 11 do
    arr[i] := i + 4;

  // Делаем проверку для каждого элемента массива
  for i := 1 to 11 do
  begin
    // Проверяем, является ли число четным
    if arr[i] mod 2 = 0 then
    begin
      arr[i] := arr[i] div 2;  // Делим четное число на два
      sum := sum + arr[i];    // Добавляем частное к сумме
    end;
  end;

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

Этот код создает массив arr из 11 элементов и заполняет его натуральными числами от 5 до 15. Затем он проходит по каждому элементу массива, проверяет, является ли число четным, и если да, то делит его на два и добавляет полученное частное к переменной sum. Наконец, выводится сумма на экран.

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