Question

Паскаль. Даны три целых числа. Найти количество отрицательных чисел в исходном наборе. (ДАЮ 35 баллов кто ответит)

Answer 1

Объяснение:

Какие числа ты не написал!?

Answer 2

===== PascalABC.NET =====

begin

 ReadSeqInteger('Введи 3 числа:', 3) // вводим 3 числа

   .Where(p -> p < 0)   // пропускаем через фыильтр отрицательные

   .Count    // находим количество прошедших фильтр

   .Println   // выводим его.

end.

Answer 3

Программа на языке Паскаль для нахождения количества отрицательных чисел в исходном наборе может выглядеть следующим образом:

pascalCopy code
program CountNegativeNumbers;
var
  num1, num2, num3: integer;
  count: integer;

begin
  count := 0;

  // Ввод трех целых чисел
  writeln('Введите три целых числа:');
  readln(num1, num2, num3);

  // Проверка каждого числа на отрицательность
  if num1 < 0 then
    count := count + 1;
  if num2 < 0 then
    count := count + 1;
  if num3 < 0 then
    count := count + 1;

  // Вывод количества отрицательных чисел
  writeln('Количество отрицательных чисел: ', count);

  // Ожидание ввода перед завершением программы
  readln;
end.

После выполнения программы выведется количество отрицательных чисел в исходном наборе.