Question

Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Суммировать числа до тех пор, пока не встретится число 2. Напечатать получившуюся сумму. Если двойка не встретилась, напечатать текст "Двойки нет". Например, если А = { 7, 4, –3, 2, 5, –2, 1}, результат: 7 + 4 – 3 = 8. Напечатать программу не языке Pascal

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -10, 10);

 a.Println;

 if a.Contains(2) then

   a.TakeWhile(p -> p <> 2).Sum.Print

 else

   Print('Двойки нет')

end.

Answer 2

Ваш запрос выглядит как задача на программирование. Ниже представлен пример кода на языке Pascal для решения данной задачи:

pascalCopy code
program SumUntilTwo;

var
  A: array of Integer;
  n, sum, i: Integer;
  hasTwo: Boolean;

begin
  // Ввод размера массива
  Write('Введите размер массива: ');
  ReadLn(n);

  // Выделение памяти под массив
  SetLength(A, n);

  // Ввод элементов массива
  WriteLn('Введите элементы массива:');
  for i := 0 to n - 1 do
  begin
    Write('A[', i, '] = ');
    ReadLn(A[i]);
  end;

  // Инициализация переменных
  sum := 0;
  hasTwo := False;

  // Суммирование элементов до первой встреченной двойки
  for i := 0 to n - 1 do
  begin
    if A[i] = 2 then
    begin
      hasTwo := True;
      Break; // Прерывание цикла при обнаружении двойки
    end;

    sum := sum + A[i];
  end;

  // Вывод результата
  if hasTwo then
    WriteLn('Результат: ', sum)
  else
    WriteLn('Двойки нет');
end.

Этот код позволяет вам ввести массив, после чего программа суммирует его элементы до первой встреченной двойки и выводит результат.