Delphi. Логический тип данных 2.

[Iri4ik]

Определить количество отрицательных чисел из трех заданных.

[BDA]

writeln(integer(a < 0) + integer(b < 0) + integer(c < 0));

[Вадим Мошев]

Не Integer, а ord

[BDA]

Вадим Мошев, так тоже работает
(ord из головы вылетел)

[Аватар]

А без разницы здесь, что Integer, что Ord

[Вадим Мошев]

Не знал, что допустимо такое преобразование типов.

[Iri4ik]

Подскажите,как зделать эту задачу с помощью двух переменных?

[Stilet]

Убрать из решения один из integer(переменная что не нужна < 0)

[Iri4ik]

Я не правильно выразилась.
Вот

var a, b, c, n:integer;
begin
write ('Vvedit 3 chusla: ');
readln (a, b, c);
n:=0;
if a<0 then Inc(n);
if b<0 then Inc(n);
if c<0 then inc(n);
writeln ('Z zadanux ',n,' chucla videmni');
readln;
end.
я использовала 4 переменных. А как записать с двумя?

[Mad_Cat]

var a,n:integer;
begin
n:=0;
readln(a);if a<0 then Inc(n);
readln(a);if a<0 then Inc(n);
readln(a);if a<0 then Inc(n);
writeln(n);
end.