Question

задача паскаль. прочитать с экрана 15 чисел, сосчитать сколько положительных, сколько отрицательных. и напечатать каких больше. срочнооо

Answer 1

Ответ:

PYTHON

m=[]

p=[]

for i in range(1, 16):

n = int(input())

if n > 0:

p.append(n)

else:

m.append(n)

print('Отрицательных:', len(m), '\n' 'Положительных:', len(p))

if len(m) > len(p):

print('Больше отрицательных')

if len(p) > len(m):

print('Больше положительных')

else:

print('Одинаковое количество отрицательных и положительных чисел')

отметь как лучший...

Answer 2

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

pascalCopy code
program CountPositiveNegative;

var
  number: Integer;
  positiveCount, negativeCount: Integer;

begin
  positiveCount := 0;
  negativeCount := 0;

  writeln('Введите 15 чисел:');

  for var i := 1 to 15 do
  begin
    readln(number);

    if number > 0 then
      positiveCount := positiveCount + 1
    else if number < 0 then
      negativeCount := negativeCount + 1;
  end;

  writeln('Количество положительных чисел: ', positiveCount);
  writeln('Количество отрицательных чисел: ', negativeCount);

  if positiveCount > negativeCount then
    writeln('Положительных чисел больше.')
  else if positiveCount < negativeCount then
    writeln('Отрицательных чисел больше.')
  else
    writeln('Положительных и отрицательных чисел одинаковое количество.');

  readln;
end.

Программа запрашивает ввод 15 чисел с клавиатуры, считает количество положительных и отрицательных чисел, а затем выводит результат о том, каких чисел больше.

Обратите внимание, что я использовал оператор readln для ввода чисел с экрана и оператор writeln для вывода результатов на экран.