Question

Одномерный массив x(10) задать с клавиатуры. Найти сумму отрицательных, количество положительных и произведение ненулевых элементов.

Answer 1

Var a : array [1..10] of integer;
Begin
Poiz
For i:=1 to 10 do readln(a[i]);
For i:= 1 to 10 do
Begin
Proz:= 1;
If a[i] < 0 then sum := sum -a[i];
If a[i] > 0 then kol := kol + 1;
If a[i] <> 0 then proz := proz * a[i];
End;
Write(sum,' ', kol,' ', proz,' ')
End.

Answer 2

Я могу помочь вам с вашим вопросом. Ваш вопрос похож на задачу по программированию на языке Pascal. Я могу попробовать написать код, который решает эту задачу, но я не могу гарантировать, что он будет работать без ошибок. Вот моя попытка:

program array_task;
var
  x: array[1..10] of integer; // одномерный массив x(10)
  i, sum, count, prod: integer; // переменные для суммы, количества и произведения
begin
  // задать массив с клавиатуры
  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
    readln(x[i]);
  // инициализировать переменные
  sum := 0; // сумма отрицательных элементов
  count := 0; // количество положительных элементов
  prod := 1; // произведение ненулевых элементов
  // перебрать все элементы массива
  for i := 1 to 10 do
  begin
    // если элемент отрицательный, то прибавить его к сумме
    if x[i] < 0 then
      sum := sum + x[i];
    // если элемент положительный, то увеличить счетчик на 1
    if x[i] > 0 then
      count := count + 1;
    // если элемент ненулевой, то умножить его на произведение
    if x[i] <> 0 then
      prod := prod * x[i];
  end;
  // вывести результаты на экран
  writeln('Сумма отрицательных элементов: ', sum);
  writeln('Количество положительных элементов: ', count);
  writeln('Произведение ненулевых элементов: ', prod);
end.

Надеюсь, это было полезно. Ответь+подробно.+Одномерный+массив+x(10)+задать+с+клавиатуры.+Найти+сумму+отрицательных,+количество+положительных+и+произведение+ненулевых+элементов.