Question

введите с клавиатуры массив k3{n} определите сумму и количество положительных элементов массива. n вводится с клавиатуры. 0 Написать в pascalABC

Answer 1

begin

 var k3 := ReadArrInteger('Вводите', ReadInteger('n='));

 var (sum, n) := (0, 0);

 for var i := 0 to k3.Length - 1 do

 begin

   if (k3[i] > 0) then  

   begin

     n += 1;

     sum += k3[i];

   end;

 end;  

 println('Sum =', sum, 'n =', n);

end.

Answer 2

Для решения этой задачи на Паскаль (PascalABC.NET), нужно ввести массив с клавиатуры, определить сумму и количество положительных элементов. Ниже приведен код, выполняющий указанную задачу:

pascalCopy code
program PositiveElementsSum;

const
  MaxArraySize = 100;

var
  k3: array[1..MaxArraySize] of integer;
  n, i, positiveCount, sum: integer;

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

  // Проверка на допустимый размер массива
  if (n <= 0) or (n > MaxArraySize) then
  begin
    WriteLn('Некорректный размер массива. Размер должен быть от 1 до ', MaxArraySize);
    Exit;
  end;

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

  // Начальные значения счетчиков
  positiveCount := 0;
  sum := 0;

  // Подсчет суммы и количества положительных элементов
  for i := 1 to n do
  begin
    if k3[i] > 0 then
    begin
      positiveCount := positiveCount + 1;
      sum := sum + k3[i];
    end;
  end;

  // Вывод результата
  WriteLn('Количество положительных элементов массива: ', positiveCount);
  WriteLn('Сумма положительных элементов массива: ', sum);
end.

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