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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.