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 потому она делает поиск номера элемента равного М а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно
uses GraphABC;
begin
SetWindowWidth(800); //ширина окна программы
SetWindowHeight(600); //высота окна программы
SetPenWidth(5); //толщина пера
setpencolor(clblue);
Rectangle(1, 600, 200,450);
Rectangle(150, 300, 200,450);
Line(1, 450, 150,450);
Line(150,450, 75,150);
Line(75,150, 1, 450 );
Line(200, 197, 400,197);
Line(400, 197, 300,107);
Line(300, 107, 200,197);
Rectangle(200, 600, 400,200); //дом
Rectangle(400, 600, 600,450); //дом
Rectangle(450, 300, 400,450); //дом
Line(447, 447, 600,447);
Line(600,447, 520,150);
Line(520,150, 447, 447);
Circle(300,300,50);
Circle(520,130,25);
Circle(75,130,25);
end.