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

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

Задать свой вопрос
2 ответа
PascalABC.NET 3.2 (сборка 1482 от 13.06.17)

Begin
Write('Количество отрицательных чисел: ',ReadSeqReal('Введите три числа:',3).Where(x-gt;xlt;0).Count)
End.
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 alt;0 then
ko:=ko+1 end; 
writeln('Кол-во отриц чисел=  ',ko); 
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт