Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Составить блок схему и написать программу
Задача: Ввести 10 значений в переменную Z . Найти и выдать на экран количество введеных нулей
.

Ответ оставил Гость

Var i,k:integer;
z:array[10] of integer;
for i:=0 to 10 do
read(z[i]);
k:=0;
for i:=0 to 10 do
if z[i]=0 then inc(k);
writeln(Нулей:, k);
end.