Question

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

Answer 1

begin

pol:=0;

otr:=0;

for i:=1 to n do begin

  readln (a[i]);

  if a[i]>0 then pol:=pol+1;

  if a[i]<0 then otr:=otr+1

end;

if pol<otr then writeln('больше отрицательных')

   else if pol=otr then writeln('одинаково')

              else writeln('больше положительных')

end.

Answer 2

Я думаю, что вы хотите написать программу на языке Паскаль, которая считывает 30 чисел по одному и определяет, что больше, количество положительных или количество отрицательных чисел. Язык Паскаль - это императивный и процедурный язык программирования, разработанный Никлаусом Виртом в 1970 году с целью поощрения хороших практик программирования с использованием структурного программирования и структурирования данных. Он назван в честь французского математика, философа и физика Блеза Паскаля.

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

program CountPosNeg;
var
  i, n, pos, neg: integer;
begin
  pos := 0; // счетчик положительных чисел
  neg := 0; // счетчик отрицательных чисел
  for i := 1 to 30 do // цикл по 30 числам
  begin
    readln(n); // считываем очередное число
    if n > 0 then // если число положительное
      pos := pos + 1 // увеличиваем счетчик положительных чисел на 1
    else if n < 0 then // если число отрицательное
      neg := neg + 1; // увеличиваем счетчик отрицательных чисел на 1
  end;
  if pos > neg then // если положительных чисел больше
    writeln('Количество положительных чисел больше, чем количество отрицательных чисел')
  else if pos < neg then // если отрицательных чисел больше
    writeln('Количество отрицательных чисел больше, чем количество положительных чисел')
  else // если положительных и отрицательных чисел одинаково
    writeln('Количество положительных и отрицательных чисел равно');
end.

Я надеюсь, что это поможет вам. Если вы хотите узнать больше о языке Паскаль, вы можете посетить [этот сайт](https://www.tutorialspoint.com/pascal/index.htm) или [этот сайт](https://www.tutorialspoint.com/pascal/pascal_overview.htm), где вы найдете много полезных уроков и примеров. Спасибо за обращение к Bing!

: [Pascal (programming language) - Wikipedia](https://en.wikipedia.org/wiki/Pascal_%28programming_language%29)