PascalABC.NET. Нужно создать программу которая вычислит сколько в выборке отрицательных...

Question

PascalABC.NET. Нужно создать программу которая вычислит сколько в выборке отрицательных чисел. Помогите пожалуйста!

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Отрицательных: ',ReadSeqReal(ReadInteger('n=')).Where(t->t<0).Count)<br>end.

Пример
n= 7
3.4 -1.45 0 -0.35 12 11.3 2
Отрицательных: 2

Answer 2

Либо так (проверь)
const N =4;type  TMas = array[1..N] of byte; procedure InitMass(var M : TMas);var i:integer;begin  for i:=1 to N do M[i] := 1;end; procedure PrintMas(const M : TMas);var i:integer;begin for i:=1 to N do Write(M[i]); WriteLn;end; function IsFinish(const M : TMas) : boolean;var i:integer;begin  IsFinish := false;  for i:=1 to N do if M[i]  IsFinish := true;end; procedure AddOne(var M : TMas);var i,c : integer;begin  c := 1;  for i:=N downto 1 do begin    M[i] := M[i] + c;    c := (M[i]-1)  div N;    if M[i]>N then M[i] := M[i] mod N;  end;end;   var mass : TMas;begin WriteLn('-----------------------------------------------------'); InitMass(mass); PrintMas(mass);  while Not IsFinish(mass) do begin   AddOne(mass);   PrintMas(mass); end; WriteLn('Done.')end. (взял с сайта)

Либо так.
var
n,x:integer;
begin
n:=0;
repeat
readln(x);
if x<0 then inc(n); <br>until x=0;
write('kol-vo=',n);
end. (написал сам)

Comments

не робит

---

там где колво твое количество (во втором)

---

program prog;
var a,b,c,i:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if a<0 then i:=i+1;<br>if b<0 then i:=i+1;<br>if c<0 then i:=i+1;<br>writeln('Количество отрицательных чисел: ',i);
end.

---

ну, я не профи.