Подсчитать количество компонент одномерного массива, имеющих заданное значение логического вектора В = { bi }, i = 1 / n, имеющих значение false

Поделиться:
code: #pascal
program L;
const n = 5;
var a, i, m, k :integer;
     b: array [1..n] of boolean;
     Y :Real;
begin
 for i:=1 to n do
 begin
 
 readln (a); 
 if a=1 then b[i]:=true
 else b[i]:=false;
 end;
 for i:=1 to n do
 if b[i]= false then k:= k+1;
 
 Writeln('Значение = ', k :2);
 
end.

автор: Tsugumi

Похожие статьи: