Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Var n,i,summa:integer;x:array[1..100]of integer;begin Read(n); summa:=0; for i:=1 to n do Readln(x[i]); for i:=1 to n do begin if x[i]=0 then inc(summa); Writeln('Сумма индексов=',summa);end.