Question

Решить задачи на паскале 1. С клавиатуры вводится пользователем n различных чисел. Подсчитать и вывести на экран количество отрицательных из них. 2. Вводится n чисел. Найти сумму тех из них, которые не превосходят ста и являются нечетными.

Answer 1

Ответ:

решение на фото......

Объяснение:

нету.

Answer 2

Вот примеры программ на языке Pascal, решающие указанные задачи:

1. Подсчет отрицательных чисел:

pascalCopy code
program CountNegatives;
var
  n, num, countNegatives: integer;
begin
  countNegatives := 0;

  write('Введите количество чисел (n): ');
  readln(n);

  for i := 1 to n do
  begin
    write('Введите число: ');
    readln(num);

    if num < 0 then
      countNegatives := countNegatives + 1;
  end;

  writeln('Количество отрицательных чисел: ', countNegatives);
end.

2. Нахождение суммы нечетных чисел, не превосходящих 100:

pascalCopy code
program SumOddNumbers;
var
  n, num, sum: integer;
begin
  sum := 0;

  write('Введите количество чисел (n): ');
  readln(n);

  for i := 1 to n do
  begin
    write('Введите число: ');
    readln(num);

    if (num <= 100) and (num mod 2 <> 0) then
      sum := sum + num;
  end;

  writeln('Сумма нечетных чисел, не превосходящих 100: ', sum);
end.

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