даны 10 произвольных действительных числа (вводятся с клавиатуры). Подсчитать количество отрицательных чисел помогите составить программу

Question

Информатика

Русланка

24 июля, 06:28

даны 10 произвольных действительных числа (вводятся с клавиатуры). Подсчитать количество отрицательных чисел помогите составить программу

+5

Ответы (2)

Знаете ответ на вопрос?

Стелла · Answer 1

var a, s, i:integer;

begin

s:=0;

for i:=1 to 10 do

begin

write ('Число: ') ; readln (a) ;

if a<0 then s:=s+1;

end;

writeln ('Кол-во отрицательных чисел: ', s) ;

end.

Нов · Answer 2

Program Zorkini;

uses crt;

const n=10;

var

Z: real;

i, k: integer;

begin

k:=0;

for i:=1 to n do

begin

write ('Введите ', i,'-e число ') ;

readln (z) ;

if z<0 then k:=k+1;

end;

writeln ('Количество отрицательных чисел ', k) ;

end.