Question

Можно ли блоксхему, а то что то запутался с началом.var n, s, i: integer; x: array[1..100]of integer;begin writeln('ВВедите кол-во купюр, их значения и необходимую сумму'); readln(n); for i := 1 to n do read(x[i]); readln(s); for i := n downto 1 do begin if s div x[i] > 0 then write(s div x[i], '*', x[i], ' '); s := s mod x[i]; end; if s <> 0 then writeln('NO')end.

Answer 1

.........................................