Знание и понимание )
1. что такое беспроводная сеть?
2. в чем преимущества беспроводной сети перед проводной?
3. какие топологии беспроводных сетей вы знаете?
4. в каких случаях разворачивается беспроводное подключение
wi-fi?
5. в чем преимущество сети wimax перед wi-fi?
N = 10;
var
A: array[1..N] of integer;
function Fun: integer;
var
i, M: integer;
begin
writeln('Введите число M=');
readln(M);
for i := 1 to N do
if A[i] = M then Fun := i;
end;
procedure CreateMassive;
var
i: integer;
begin
for i := 1 to N do
begin
A[i] := Random(199) - 100;
write(A[i],' ');
end;
Writeln;
end;
begin
CreateMassive;
Writeln(Fun);
end.
вот вариант исправления который работает, хотя конечно не факт что он работает как там кто-то задумывал)))
не понятно было назначение функции Fun потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно
a[0]=0
a[1]=1
a[2]=2
a[10]=10
во втором цикле:
i=0
a[5]=a[5]
a[2]=a[10]
получим, что a[2]=10 и a[10]=10
i=1
a[4]=a[6]
a[3]=a[9]
получим, что a[3]=9; a[9]=9; a[4]=6; a[6]=6
i=2
a[3]=a[7]
a[4]=a[8]
получим, что a[3]=7; a[7]=7; a[4]=8; a[8]=8
i=3
a[2]=a[8]
a[5]=a[7]
получим: a[2]=8; a[8]=8; a[5]=7; a[7]=7
i=4
a[1]=a[9]
a[6]=a[6]
получим: a[6]=6; a[1]=9; a[9]=9
i=5
a[0]=a[10]
a[7]=a[5]
получим: a[0]=10; a[10]=10; a[7]=7; a[5]=7
полученный массив:
a[0]=10
a[1]=9
a[2]=8
a[3]=7
a[4]=8
a[5]=7
a[6]=6
a[7]=7
a[8]=8
a[9]=9
a[10]=10
10 9 8 7 8 7 6 7 8 9 10
ответ: 1