Задача

Тема в разделе "Pascal and Delphi", создана пользователем -, 27 сен 2009.

  1. Гость

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

    etc Гость

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

    Kest Гость

    Репутация:
    0
    Код (Text):
    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.
     
Загрузка...
Похожие Темы - Задача
  1. petiablack
    Ответов:
    0
    Просмотров:
    30
  2. disub
    Ответов:
    1
    Просмотров:
    130
  3. Kazua
    Ответов:
    1
    Просмотров:
    124
  4. Rina
    Ответов:
    0
    Просмотров:
    86
  5. School_Information

    Решите Задача

    Ответов:
    2
    Просмотров:
    220

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