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

Question

Информатика

Ефросиныч

17 марта, 08:59

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

+5

Ответы (2)

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

Руся · Answer 1

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.

Варюша · Answer 2

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.