Цитата:
Сообщение от diagen_62
Нехорошо и неприлично грубить человеку, которого не знаешь совсем.Знаете, кому-то дано быть программистом, а кому-то нет.И мне не стыдно!
|
Ну... не совсем так. Разумеется, лично я не имею чести Вас знать, а вот заочно мы встречаемся не впервые. Вы уже на нашем форуме далеко не новичок. А позволил я себе ехидные комментарии только памятуя о наших предыдущих общениях, например здесь:
Помогите с программой , где мы СОВМЕСТНЫМИ (что для меня крайне важно!) усилиями отлаживали учебную программу. Собственно, в этом и состоит, как я понимаю, основное наша функция - помочь, подсказать и, в итоге, чему-то научить. Мне казалось, что с Вами именно такой случай. Значит, ошибся. Жаль. А посты типа
Напишите мне программу,
Я в Паскале полный ламер
энтузиазма не вызывают. Хотя, что делать - жалеешь оболтусов, пишешь.
Цитата:
|
на этом форуме помогают те, кто соображает в программировании, а не преподносят сообщения оскорбительного характера типа : "Ха-ха неудачник, не умеет нолики подсчитать".
|
Ну что же, поскольку я исключен из множества "тех, кто соображает в программировании", но являю собой исключительно образец оскорбителя, обязуюсь впредь ни в какие взаимоотношения с Вами не вступать и Ваши запросы игнорировать. Желаю удачи в получении помощи от "тех, кто соображает".
Цитата:
|
И тем, что Вы сейчас посмеялись надо мной, меня не расстроили.
|
Знаете - очень рад. Правда-правда. Я вообще меньше всего собирался Вас расстраивать - так, была надежда подстегнуть Вас к самостоятельному решению этой школьной задачки. Но, в любом случае - смиренно приношу самые искренние извинения. И, раз уж мы расстаемся, не откажите в любезности принять прощальный букет:
Код:
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.