Задача

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

  1. Гость

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

    etc Гость

    Армия поможет.
     
  3. Kest

    Kest Гость

    Код (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. Янчик
    Ответов:
    0
    Просмотров:
    479
  2. TrishaRay
    Ответов:
    1
    Просмотров:
    778
  3. elzim
    Ответов:
    0
    Просмотров:
    929
  4. ShaoKahn
    Ответов:
    0
    Просмотров:
    1.117
  5. eremin-sanek
    Ответов:
    3
    Просмотров:
    1.105

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