Запросить 40 чисел подсчитать количество чисел равных 0
Jfjdhdhhdjdxjxh1111
3
06.09.2019 07:50
1
Другие вопросы по теме Информатика
artem874
18.04.2021 20:35
olegtab34
18.04.2021 20:36
AnnKulibyakina
18.04.2021 20:37
MartinaStoessel2
18.04.2021 20:37
ник5032
10.12.2020 09:51
АлинаКравченко
10.12.2020 09:53
xxx170
10.12.2020 09:53
цветочек120
10.12.2020 09:55
ОляКatschanjukolaola
30.06.2019 18:50
Популярные вопросы
- 1)Как называют правоведы признание общеобязательности правовых норм?2)Что является...
1 - Дан треугольник АВС, где А(-2;5), В(4; 1), С(-1; -1), СМ его медиана. А) вычислите...
2 - как современники описывают кабинет писателя лескова...
1 - 7-th Form. Test 1-st variant l. Choose the right variant. 1. I always (make/ do)...
1 - Чим казкова повість А. Ліндгрен «Міо, мій Міо» схожа на народні казки?...
3 - Разность двух чисел равна 5 целых 7/8 а вычитаемое равно 3 2/3 найдите уменьшаемое...
3 - В реакцію з алюмінієм вступив кисень об ємом 4,48 л (н.у.) Визначити масу алюмінію...
2 - 1. Прочитайте текст. Выберите заголовок к тексту, наиболее подходящий по смыслу,...
3 - У яких гуморесках звучать сатиричні ноти? відповідь обґрунтуйте! ДО ТЬ БУДЬ ЛАСКА...
3 - Үш еселі байланысы бар көміртектің гибридтену типі......
1
var i,k,a: integer;
begin
k:=0;
for i:=1 to 40 do begin
readln(a);
if a=0 then k:=k+1;
end;
write(k);
end.