Работа в Borland C

[ГореПрограммист]

дано 10 чисел. Определить сколько из них отличны от нуля.

относится ли этот код к этой задаче?
k:=1;
for i:=2 to 100 do
if m[i]>m[k] then k:=i;
c:=0;
for i:=1 to 100 do
if m[i]=m[k] then inc(c);

[slips]

Сообщение от ГореПрограммист

дано 10 чисел. Определить сколько из них отличны от нуля.

относится ли этот код к этой задаче?
k:=1;
for i:=2 to 100 do
if m[i]>m[k] then k:=i;
c:=0;
for i:=1 to 100 do
if m[i]=m[k] then inc(c);

Ох и ник у вас точно горе.
1. язык явно pascal
2. сравнивается первый элемент массива m[k] со всеми элементами , если есть больше элемент то записываем его порядковый номер.
3. во сторой задаче берём первый элемент массива(это если не учитывать что найдётся больший эл. смотреть 1 пример) и находим ему равный и считаем сколько равных ему элементов

[slips]

Ваша задача!

c=0;
for (i=0;i<10;i++)
if (m[i]!=0)
  c++;

[ГореПрограммист]

спасибо большое