Const
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 потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно
Ответ:1)C:\Календарь\Декабрь.
1.Поднялся, оказался в C:\Календарь
2.2 раза опустился и оказался в <span>C:\Календарь\Зима\Январь\17\ (17 выделено с двух сторон, а значит это не каталог).</span>
Алгоритм ол действия осындай 1)мен уйге келдым 2)кырдым 3)сабак ыстедым 4)уыйктадым. Алгоритм ол действия
1. переписка
2. монитор, принтер, плоттер, динамик.
3. -
4. компьютер
5. микрофон
6. -
Дано: N=64 K=50
Найти: lc=?
Ршение:
lc=k*i?N=2(корень i)
64=2(корень i),2(корень 6)=2(корень i),6(бит)
lc=50*6 бит = 300 бит
<span>Ответ 300 бит</span>