Написать ** языке pascal. Дан массив с1,с2....с15 состоящий из нулей и единиц. Подсчитать...

Question

Написать на языке pascal. Дан массив с1,с2....с15 состоящий из нулей и единиц. Подсчитать количество 0,количество 1, и количество нулей до первой единицы

Answer 1

var c:array[1..15]of byte;

i,s1,s2,s3:integer; k:boolean;

begin

for i:=1 to 15 do readln(c[i]);

for i:=1 to 15 do begin

if c[i]=0 then inc(s1) else inc(s2);

if c[i]<>0 then k:=true;

if k=false then inc(s3);

end;

writeln(s1,' ',s2,' ',s3);

end.