Технический форум - Разработать функцию для определения количества нулей в одномерном массиве

Цитата:

Сообщение от diagen_62 (Сообщение 542345)

Нехорошо и неприлично грубить человеку, которого не знаешь совсем.Знаете, кому-то дано быть программистом, а кому-то нет.И мне не стыдно!

Ну... не совсем так. Разумеется, лично я не имею чести Вас знать, а вот заочно мы встречаемся не впервые. Вы уже на нашем форуме далеко не новичок. А позволил я себе ехидные комментарии только памятуя о наших предыдущих общениях, например здесь: http://www.tehnari.ru/f43/t49677/ , где мы СОВМЕСТНЫМИ (что для меня крайне важно!) усилиями отлаживали учебную программу. Собственно, в этом и состоит, как я понимаю, основное наша функция - помочь, подсказать и, в итоге, чему-то научить. Мне казалось, что с Вами именно такой случай. Значит, ошибся. Жаль. А посты типа
Напишите мне программу,
Я в Паскале полный ламер
энтузиазма не вызывают. Хотя, что делать - жалеешь оболтусов, пишешь.

Цитата:

на этом форуме помогают те, кто соображает в программировании, а не преподносят сообщения оскорбительного характера типа : "Ха-ха неудачник, не умеет нолики подсчитать".

Ну что же, поскольку я исключен из множества "тех, кто соображает в программировании", но являю собой исключительно образец оскорбителя, обязуюсь впредь ни в какие взаимоотношения с Вами не вступать и Ваши запросы игнорировать. Желаю удачи в получении помощи от "тех, кто соображает".

Цитата:

И тем, что Вы сейчас посмеялись надо мной, меня не расстроили.

Знаете - очень рад. Правда-правда. Я вообще меньше всего собирался Вас расстраивать - так, была надежда подстегнуть Вас к самостоятельному решению этой школьной задачки. Но, в любом случае - смиренно приношу самые искренние извинения. И, раз уж мы расстаемся, не откажите в любезности принять прощальный букет:

Код:

TYPE

 Vect=Array[1..100] of Integer;

VAR

 A:Array[1..100,1..100] of Integer;

 V:Vect;

 i,j:Integer;

 M,N:Byte;



Function Num_Zer(Vnz:Vect; Nnz:Byte):Byte;

var

 k:Integer;

 NZ:Byte;

begin

 NZ:=0;

 For k:=1 to Nnz do

  If Vnz[k]=0 then Inc(NZ);

 Num_Zer:=NZ;

end;



BEGIN

 Write('Number of lines in matrix = ');

 Readln(M);

 Write('Number of columns in matrix = ');

 Readln(N);

 Writeln;

 Randomize;

 For i:=1 to M do

  begin

   For j:=1 to N do

    begin

     A[i,j]:=3-Random(6);

     Write(A[i,j]:4);

    end;

   Writeln;

  end;

 Writeln;

 For i:=1 to M do

  begin

   For j:=1 to N do

    V[j]:=A[i,j];

   Writeln('Line ',i:2,': number of zero elements is ',Num_Zer(V,N));

  end;

 Readln

END.