Цитата:
Сообщение от Madara
Я решал, общую форму программы написал примерно,
|
Да... что-то, я смотрю, совсем у Вас программирование не идет... То, что Вы написали, это, увы, в основном просто набор каких-то символов типа "вокруг да около". Ну где, скажите на милость, Вы видели, чтобы константа была параметром процедуры?!
Вот, например, рабочая программка:
Код:
const
m=5;
type
Mass=array[1..m] of integer;
Var
C:Mass;
j:Integer;
Procedure Izmena (Mi:Integer; var Ci:Mass);
var
i,i_min,min:Integer;
begin
min:=Ci[1];
i_min:=1;
for i:=2 to Mi do
if Ci[i]<min then
begin
min:=Ci[i];
i_min:=i;
end;
for i:=1 to i_min-1 do Ci[i]:=Ci[i]*min;
for i:=i_min+1 to Mi do Ci[i]:=Ci[i]-1;
end;
Begin
C[1]:=5; C[2]:=5; C[3]:=4; C[4]:=2; C[5]:=7;
for j:=1 to m do write(C[j]:5);
writeln;
Izmena(m,C);
for j:=1 to m do write(C[j]:5);
Readln
End.