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

Question

Информатика

Ронюша

18 января, 15:25

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

+2

Ответы (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.