Question

Ввести массив X(X1,x2,...x10).Подсчитать количество элементов,чьё значение больше 1,а также найти сумму отрицательных элементов.(Pascal)

Answer 1

Const
   N = 10;
Var
   X:array[1..N] of integer;
   i,k:integer;
   S:real;
Begin
k:=0;
S:=0;
WriteLn('Введите массив A[',N,']:');
For i:= 1 to N do
    Begin
    Read(X[i]);
    if X[i]>1 then k:=k+1
    else if X[i]<0 then S:=S+X[i];
    End;
WriteLn('k = ',k);
WriteLn('S = ',S);
End.

Answer 2

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadArrInteger('10 чисел:',10);
  Writeln('Кол-во элементов, больших 1: ',x.Where(m->m>1).Count);
  Writeln('Сумма отрицательных: ',x.Where(m->m<0).Sum)
end.

Пример
10 чисел: -5 0 12 7 0 -4 -2 5 -2 5
Кол-во элементов, больших 1: 4
Сумма отрицательных: -13

Answer 3

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

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

Надеюсь, это поможет вам. Если у вас есть ещё вопросы, я рад помочь.