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

Question

Информатика

Ная

17 февраля, 18:39

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

+5

Ответы (1)

Знаете ответ?

Димаша · 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.