• 
  • 03 January 2021
  Другие предметы
  • Автор: RL12345

  

  Составить программу, которая вычисляет количество введенных чисел больше нуля.

• 
  • 03 January 2021
  • Ответ оставил: warpathloyga

  program mas;

  uses crt;

  var a,n,i,kp,ko,kn: integer;

  begin

  clrscr;

  write('n=');

  readln(n);

  writeln('Введите ',n,' целых чисел');

  kp:=0;ko:=0;kn:=0;

  for i:=1 to n do

  begin

   readln(a);

   if a>0 then kp:=kp+1

   else if a<0 then ko:=ko+1

   else kn:=kn+1;

  end;

  writeln('количество отрицательных чисел=  ',ko);

  writeln('количество положительных чисел равных = ',kp);

  writeln('количество нолей= ',kn);

  readln;

  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: другие предметы.
  На сегодняшний день (01.04.2026) наш сайт содержит 140759 вопросов, по теме: другие предметы. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы