Составьте алгоритм определения количества положительных чисел а в с d переданных значений

Question

Алгебра

Сергеич

30 июля, 15:12

Составьте алгоритм определения количества положительных чисел а в с d переданных значений

+5

Ответы (1)

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

Николя · Answer 1

Var

a, b, c, d:integer;

begin

write ('a: ') ; readln (a) ;

write ('b: ') ; readln (b) ;

write ('c: ') ; readln (c) ;

write ('d: ') ; readln (d) ;

var arr:=Arr (a, b, c, d) ;

write ('Кол-во положительных: ') ;

writeln (arr. where (x->x>0). Count) ;

end.