Задача

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

Наш партнер Genesis Hackspace
  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. Kazua
    Ответов:
    1
    Просмотров:
    50
  2. Rina
    Ответов:
    0
    Просмотров:
    40
  3. School_Information

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

    Ответов:
    2
    Просмотров:
    181
  4. KhNarg
    Ответов:
    2
    Просмотров:
    275
  5. Янчик
    Ответов:
    0
    Просмотров:
    653

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