Задача

Тема в разделе "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.
     
Загрузка...

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