Решите пожалуйста в паскале задачи 1)Дана непустая последовательность целых чисел, оканчивающаяся нулем....

Вот решения задач на языке Pascal:

1) Задача о сумме и количестве четных чисел:

program SequenceAnalysis;
var
  x, num, sumGreaterX, evenCount: Integer;
begin
  sumGreaterX := 0;
  evenCount := 0;
  
  Write('Введите число x: ');
  ReadLn(x);
  
  WriteLn('Введите последовательность чисел (окончание - 0):');
  repeat
    ReadLn(num);
    if num  0 then
    begin
      if num > x then
        sumGreaterX := sumGreaterX + num;

      if num mod 2 = 0 then
        evenCount := evenCount + 1;
    end;
  until num = 0;

  WriteLn('Сумма чисел больше ', x, ': ', sumGreaterX);
  WriteLn('Количество четных чисел: ', evenCount);
end.

2) Задача о смене знака:

program SignChangeCount;
var
  num, prevNum: Integer;
  signChangeCount: Integer;
begin
  signChangeCount := 0;
  
  WriteLn('Введите последовательность ненулевых чисел (окончание - 0):');
  ReadLn(prevNum);
  
  if prevNum = 0 then
    Exit; // Если первое число 0, выходим из программы

  repeat
    ReadLn(num);
    if num  0 then
    begin
      if (prevNum > 0) and (num < 0) or (prevNum < 0) and (num > 0) then
        signChangeCount := signChangeCount + 1;
        
      prevNum := num;
    end;
  until num = 0;

  WriteLn('Количество смен знака: ', signChangeCount);
end.

Эти программы решают поставленные задачи, считывая последовательности чисел и производя необходимые вычисления.

Вот пример программ на Паскале для решения указанных вами задач.

Задача 1

Для решения первой задачи мы будем читать последовательность целых чисел, пока не встретим ноль. Мы будем считать сумму чисел, больших заданного числа x, и количество четных чисел в последовательности.

program SequenceAnalysis;

var
  number, x, sum, evenCount: Integer;

begin
  sum := 0;
  evenCount := 0;
  
  Write('Введите число x: ');
  ReadLn(x);
  
  WriteLn('Введите последовательность целых чисел, оканчивающуюся нулем:');
  
  repeat
    Read(number);
    
    if number  0 then
    begin
      // Суммируем числа больше x
      if number > x then
        sum := sum + number;
      
      // Считаем четные числа
      if number mod 2 = 0 then
        evenCount := evenCount + 1;
    end;
    
  until number = 0;
  
  WriteLn('Сумма чисел больше ', x, ': ', sum);
  WriteLn('Количество четных чисел: ', evenCount);
end.

Задача 2

Для второй задачи мы будем также считывать последовательность целых чисел, и будем отслеживать, меняется ли знак между последовательными числами.

program SignChangeCounter;

var
  number, previousNumber: Integer;
  signChangeCount: Integer;
  firstNumber: Boolean;

begin
  signChangeCount := 0;
  firstNumber := True;
  
  WriteLn('Введите последовательность ненулевых целых чисел, оканчивающуюся нулем:');
  
  repeat
    Read(number);
    
    if number  0 then
    begin
      if firstNumber then
      begin
        previousNumber := number;
        firstNumber := False;
      end
      else
      begin
        // Проверяем изменение знака
        if (previousNumber > 0) and (number < 0) or (previousNumber < 0) and (number > 0) then
          signChangeCount := signChangeCount + 1;
          
        previousNumber := number;
      end;
    end;
    
  until number = 0;
  
  WriteLn('Количество изменений знака: ', signChangeCount);
end.

Пояснение к коду

1. Задача 1:

   • Запрашиваем у пользователя число x.
   • Читаем последовательность чисел до тех пор, пока не встретим ноль.
   • Для каждого числа проверяем, больше ли оно x и добавляем его к сумме, если это так.
   • Также проверяем, четное ли число, и увеличиваем счетчик четных чисел.

2. Задача 2:

   • Читаем последовательность ненулевых чисел.
   • Для каждого числа проверяем, изменился ли знак по сравнению с предыдущим числом.
   • Если знак изменился, увеличиваем счетчик изменений знака.

Эти программы решают поставленные задачи, учитывая условия, указанные в ваших запросах.

Для решения задач на языке программирования Pascal нужно определить алгоритм и написать соответствующий код. Разберем каждую задачу подробно.

Задача 1.

Условие: Имеется непустая последовательность целых чисел, оканчивающаяся нулем. Нужно:

• а) Найти сумму всех чисел последовательности, больших числа x.
• б) Найти количество всех четных чисел последовательности.

Рассмотрим алгоритм:

1. Вводится число x.
2. Считываются элементы последовательности.
3. Проверяется каждое число:
   • Если число больше x, добавляем его к сумме.
   • Если число четное, увеличиваем счетчик четных чисел.
4. Завершаем обработку при вводе нуля.

Реализация на Pascal:

program SequenceAnalysis;

var
  x, num, sum, evenCount: integer;

begin
  writeln('Введите значение x:');
  readln(x);

  sum := 0;
  evenCount := 0;

  writeln('Введите последовательность чисел (оканчивающуюся нулем):');
  repeat
    readln(num);

    // Суммируем числа, большие x
    if num > x then
      sum := sum + num;

    // Считаем четные числа
    if (num mod 2 = 0) and (num  0) then
      evenCount := evenCount + 1;

  until num = 0;

  writeln('Сумма всех чисел последовательности, больших ', x, ': ', sum);
  writeln('Количество четных чисел в последовательности: ', evenCount);
end.

Пример работы программы:

• Ввод: x = 5, последовательность: 7, 2, 9, 4, 6, 0.
• Результат:
  • Сумма чисел больше 5: 7 + 9 + 6 = 22.
  • Количество четных чисел: 2, 4, 6 → 3.

Задача 2.

Условие: Дана последовательность ненулевых целых чисел, оканчивающаяся нулем. Определить, сколько раз в последовательности меняется знак.

Алгоритм:

1. Считывается последовательность чисел до нуля.
2. Проверяем каждую пару соседних чисел:
   • Если произведение текущего числа и предыдущего отрицательное, значит, знак изменился.
3. Увеличиваем счетчик изменений знака при каждом обнаруженном изменении.
4. Завершаем обработку при вводе нуля.

Реализация на Pascal:

program SignChanges;

var
  num, prevNum, signChanges: integer;

begin
  writeln('Введите последовательность чисел (оканчивающуюся нулем):');

  signChanges := 0;
  prevNum := 0;

  repeat
    readln(num);

    // Проверяем изменение знака (не учитываем первый ввод)
    if (prevNum  0) and (num  0) and ((num * prevNum) < 0) then
      signChanges := signChanges + 1;

    // Запоминаем текущее число как предыдущее
    prevNum := num;

  until num = 0;

  writeln('Количество изменений знака в последовательности: ', signChanges);
end.

Пример работы программы:

• Ввод: 10, -4, 12, 56, -4, 0.
• Результат:
  • Знак меняется: 10 → -4 → 12 → 56 → -4, всего 3 раза.

Объяснение кода:

1. Цикл repeat.until: Использован для ввода последовательности чисел, так как неизвестно заранее, сколько чисел будет введено.
2. Условие изменения знака: Проверяется произведение текущего числа num и предыдущего prevNum. Если оно отрицательное, значит, числа имеют разные знаки.
3. Суммирование и подсчет: Используются переменные sum для накопления суммы и evenCount для подсчета четных чисел.

Эти задачи демонстрируют основные принципы работы с последовательностями и условиями в Pascal.