1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Задача

Тема в разделе "Вопросы новичков и не только", создана пользователем -, 27 сен 2009.

  1. Гость

    Репутация:
    0
    Вводится n чисел, найти колличество отрицательных(Turbo Pascal) Помогите плиз
     
  2. etc

    etc Гость

    Репутация:
    0
    Армия поможет.
     
  3. Kest

    Kest Гость

    Репутация:
    0
    Код:
    var i,n,m:integer; x:real;
    begin
    m:=0;
    readln(n);
    for i:=1 to n do
    begin
    Writeln(i,'ое число');
    Readln(X);
    if x<0 then m:=m+1
    end;
    writeln(m);
    end.
     
Загрузка...

Поделиться этой страницей