Question

напишите программу, которая в массиве Т[1..10] определяет количество нулей.

Answer 1

var a,i,k,sum:integer;

T:array[1..10]of integer;

begin

for i:=1 to 10 do begin

if(T[i]=0)then sum:=sum+1; //проверка на 0

end;

write(sum);

end.