Если -128 то митус это 1 байт и 128 это 7 байт помоему
если минус не считать то просто 7
Объясните в чем суть задания
Вроде так, но на всякий проверь на самом паскале, насчёт знаков и тд
Вы хоть пишите, как нужно это проверить....то ли это алгоритм проверки на каком либо языке, то ли еще что-то. Чем точнее вы задаете ответы, тем быстрее на них отвечают.
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 потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно