Question

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

Answer 1

Ответ:

Программа написана ниже:

Объяснение:

program H;

var i, a, tch, netch : integer;

begin

 for i := 1 to 15 do

 begin

 read (a);

 if a < 0 then

 netch:= netch +1;

  if a > 0 then

 tch:= tch +1;

 end;

 if (tch < netch) then

 writeln ('Нечетных больше чем четных :', netch ,'>', tch);

  if (tch > netch) then

 writeln ('Четных больше чем нечетных :', tch ,'>' ,netch);

end.

Answer 2

Задача на Паскаль: подсчет положительных и отрицательных чисел

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

Вот пример кода на Паскале, который решает данную задачу:

program CountPositiveAndNegative;
var
  number, positiveCount, negativeCount, i: integer;
begin
  positiveCount := 0;
  negativeCount := 0;
  
  for i := 1 to 15 do
  begin
    write('Введите число: ');
    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('Количество положительных и отрицательных чисел равно');
end.

В этом коде мы используем переменные `positiveCount` и `negativeCount` для подсчета количества положительных и отрицательных чисел соответственно. Затем мы используем цикл `for` для считывания 15 чисел с экрана и проверки их знака. Если число больше нуля, мы увеличиваем `positiveCount` на 1, если число меньше нуля, мы увеличиваем `negativeCount` на 1.

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

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

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их.