Hosten
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
блин, помогите решить задачку..
uses crt;
const n=10;
type mas=array[1..n*2] of integer;
var x,a:mas; f,k,i:integer;
Procedure Init(Var a1:mas);
Var i: Integer;
Begin
For i:=1 to n do
a1[i]:=random(50)-25;
End;
Procedure Print (n1: integer; Var a1: mas);
Var i: Integer;
begin
for i:=1 to n do
WriteLn('a[',i,']= ',a1[i],' ');
End;
Procedure Insert(k1,x1:integer; var a1:mas);
var i:integer;
begin
for i:=n downto 1 do
a1[i+1]:=a1[i];
a1[k1+1]:=x1;
end;
begin
clrscr;
randomize;
init (a);
Print (n, a);
write ('k=');
readln (k);
for i:=1 to n do
begin
If (x[i] div 2) = 0 then f:=0;
end;
readln(k,x[i]);
print(n, a);
end.
в общем после сток Procedure Insert идёт какая-то муть. попросили доделать, но сам не могу понять...
нужно вставлять к после всех элементов кратных своему номеру, к вводить с клавы.
|
Всего записей: 39 | Зарегистр. 02-12-2008 | Отправлено: 22:49 12-01-2010 | Исправлено: Hosten, 22:52 12-01-2010 |
|
.«Чтобы понять рекурсию, нужно сперва понять рекурсию».