Const n=10; type ar=array[1..n+1] of integer; var a:ar; i,p:integer; procedure pr(var a:ar; p:integer; var k:integer); begin k:=1; while a[k]<>p do k:=k+1; end; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(31); write(a[i]:4); end; writeln; p:=17; a[n+1]:=p; pr(a,p,i); if i<n then writeln('Значение 17 найдено, номер элемента = ',i) else writeln('Значения 17 в массиве нет'); end.
Пример: Массив A: 14 5 7 17 25 15 28 0 24 0 Значение 17 найдено, номер элемента = 4
type ar=array[1..n+1] of integer;
var
a:ar; i,p:integer;
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(31);
write(a[i]:4);
end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n
then writeln('Значение 17 найдено, номер элемента = ',i)
else writeln('Значения 17 в массиве нет');
end.
Пример:
Массив A:
14 5 7 17 25 15 28 0 24 0
Значение 17 найдено, номер элемента = 4
int main()
{
int nn,kk;
printf("Enter peoples and -kk: ");
scanf("%d%d",&nn,&kk);
int n[nn];
int k = kk;
int sum, p, l = 0, i = 0, q = 0;
for(int i = 0; i < nn; i++)
{
n[i] = 1;
printf("%d ",n[i]);
}
printf("\n");
do{
sum = 0;
p = l;
q = 0;
for(int i = 0; i < nn; i++)
{
if(n[i])
{
sum++;
}
}
for(;q!=kk;)
{
if(i==nn) i = 0;
if(n[i])
{
p++;
q++;
}
if(q==kk)
{
n[i] = 0;
l = i;
}
i++;
}
for(int i = 0; i < nn; i++)
{
printf("%d ",n[i]);
}
printf("\n");
}while(sum>2);
for(int i = 0; i < nn; i++)
{
if(n[i])
{
printf("Last: %d#",i+1);
}
}
return 0;
}