[Паскаль] Найти кол-во ненулевых элементов в массиве

[vfedrchenk]

помогите пожалуйста решить задачу

Дан одномерный массив из 5 элементов,найти кол-во ненулевых элементов.
заранее спасибо.

[Кольша]

delphi:
var
i,o:integer;
////массив сами добавите
begin
for i:=0 to 5 do 
if m[i]=0 then inc(o);
showmessage(inttostr(o)+' вот сколь нулей');

[vfedrchenk]

а как на Паскале?

[Кольша]

наверно также просто надо указать массив

[ACE Valery]

Вам и так помогли, можно было не флудить. Если бы вы хоть раз видели паскаль, то заметили бы, что он практически не отличается от того кода на Делфи, что вам предоставили.

[Hacker19_90]

А ничего, то что программа делает не то что надо?

[ACE Valery]

ну зато ТС, возможно, задумается, почему она выводит количество НУЛЕВЫХ элементов и найдет в себе силы исправить на НЕ нулевые.

[Hacker19_90]

ну это при условии что код он подправил