Дан массив (паскаль) из десяти целых чисел, подсчитать - вопрос №84719250 от alenabarsukova20 12.12.2020 02:13

Question

Информатика: Дан массив (паскаль) из десяти целых чисел, подсчитать сколько встречается 0. как это делается? , .

alenabarsukova20 · Answer

Var
a:array[1..10] of integer;
i,k:byte;
begin
writeln('Заполнение массива');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
begin
if a[i]=0 then
k:=k+1;
end;
writeln('Кол-во нулей:',k);
end.