Pascal нужны комментарии к процедуре.

[RrR5]

procedure proverka(k:integer);
var i:integer;
begin
z:=0;
for i:=1 to N do begin
if (p^[i]=k) then z:=z+1;end;
write(' ',z); if z<min then min:=z;
if z>max then max:=z;
end;

Подскажите пожалуйста, как работает данная процедура, т.е. что на каком шаге делает?
И за что отвечает переменная k.
Заранее спасибо.

[Hollander]

А ты уверен что это рабочий код? Я что-то не встречал такое чтобы оператор брали в квадратные скобки

[RrR5]

Это от сюда:

Program Massiv;
Uses crt;
const N=10000;
type Diapaz=1..N;
     celmas=array[Diapaz] of integer;
var i,j,k,z:integer;
    p:^celmas;
    x:integer;
Procedure Proverka(k:integer);
var i:integer;
begin
z:=0;
for i:=1 to N do begin
if (p^[i]=k) then z:=z+1;end;
write(' ',z);
end;

Procedure Uporiad;
var i,j:integer;
begin
for i:=1 to N do begin
for j:=N downto 1 do
begin
if p^[j-1]>p^[j] then
       begin
       x:=p^[j-1];
       p^[j-1]:=p^[j];
       p^[j]:=x;
       end;
end;
write(' ',p^[i]);
end;end;

begin
Clrscr;
Randomize;
new(p);
for i:=1 to N do
begin
p^[i]:=random(21);
end;
Uporiad;
writeln;
for j:=0 to 20 do begin
Proverka(j);end;
dispose(p);
end.

[capta1n]

у тебя тела в процедурах разные - ты определись, и лучше, если ты остановишься на втором варианте - лучше для тебя

procedure proverka(k:integer);
var i:integer;
begin
z:=0;
for i:=1 to N do begin
if (p^[i]=k) then z:=z+1;end;
write(' ',z); if z<min then min:=z;
if z>max then max:=z;
end;

Procedure Proverka(k:integer);
var i:integer;
begin
z:=0;
for i:=1 to N do begin
if (p^[i]=k) then z:=z+1;end;
write(' ',z);
end;

а процедура твоя считает количество элементов массива, которые равны задаваемому числу k, вот только лучше, если ты константу N (размер массива) скинешь как формальный параметр процедуры, потому что процедура должна выглядеть как максимально независимая от головной программы программа - ну это так - совет

[RrR5]

А упорядочивание

Procedure Uporiad;
var i,j:integer;
begin
for i:=1 to N do begin
for j:=N downto 1 do
begin
if p^[j-1]>p^[j] then
       begin
       x:=p^[j-1];
       p^[j-1]:=p^[j];
       p^[j]:=x;
       end;
end;
write(' ',p^[i]);
end;end;

вставками?

[puporev]

Это простой обмен, разновидность пузырька.

[RrR5]

Procedure Proverka(k:integer);
var i:integer;
begin
z:=0;
for i:=1 to N do begin
if (p^[i]=k) then z:=z+1;end;
write(' ',z);
end;

Зачем тут нужен параметр k

[capta1n]

а процедура твоя считает количество элементов массива, которые равны задаваемому числу k

читай то что тебе пишут внимательнее

[alex_fcsm]

с k(передается из программы) сравниваются элементы, а затем выводится их количество(элементы равные k)

[RrR5]

препод говорит не то..
нужно объяснить что именно делает сама k