Question

С клавиатуры задаётся три числа. Составить программу, которая определяет, сколько отрицательных чисел введено

Answer 1

program mas;
uses crt;
const n=3;
var a,i,kp,ko,kn: integer;
begin clrscr; 
writeln('Введите ',n,' целых чисел');
ko:=0; for i:=1 to n do 
begin 
readln(a); 
if a<0 then
ko:=ko+1 end; 
writeln('Кол-во отриц чисел=  ',ko); 
readln;
end.

Answer 2

PascalABC.NET 3.2 (сборка 1482 от 13.06.17)

Begin
Write('Количество отрицательных чисел: ',ReadSeqReal('Введите три числа:',3).Where(x->x<0).Count)
End.