var n, i: longint; a: array of longint; //------------------------------------------------------------------------------------ procedure completeMAS (kolvo: longint; var mas: array of longint); var i: longint; begin setLength (mas, kolvo); for i:=0 to kolvo-1 do mas[i]:=0; mas[random (kolvo)]:=random (1000000)+1; end; //------------------------------------------------------------------------------------- begin randomize; readln (n); completeMAS (n, a);
for i:=0 to n-1 do write (a[i], '; '); end.
0 votes Thanks 0
Студэнt
Согласен, не правильно прочитал условие задачи. Каюсь!
Студэнt
Заново комментировать свою программу нет ни желания, ни смысла, т.к. товарищ сверху сделал это получше меня. Да и измененная моя прога копия описанной сверху.
Студэнt
Да, вы абсолютно правы - гусь свинье не товарищ! Потому, полечу пожалуй...
Answers & Comments
Verified answer
//прога на Pascal`evar
n, i: longint;
a: array of longint;
//------------------------------------------------------------------------------------
procedure completeMAS (kolvo: longint; var mas: array of longint);
var i: longint;
begin
setLength (mas, kolvo);
for i:=0 to kolvo-1 do
mas[i]:=0;
mas[random (kolvo)]:=random (1000000)+1;
end;
//-------------------------------------------------------------------------------------
begin
randomize;
readln (n);
completeMAS (n, a);
for i:=0 to n-1 do
write (a[i], '; ');
end.