Смотри в одном мегабайте - 1048576 байтов,
Значит в 189 мегабайтах -198180864 байта
Ответ:
case m / 2 + 1 of // значения в case должно быть целым
Объяснение:
2,6,4,7,1,3,5 если я правильно понял, то такая последлвательнсоть
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 потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно
<span>Нажмите кнопку Кнопка Microsoft Office и выберите пункт Параметры Word. </span>
<span>Щелкните категорию Настройка. </span>
<span>В диалоговом окне Параметры Word в списке Выбрать команды из выберите Все команды. </span>
<span>В списке команд выбранной категории выберите Автоформат и нажмите кнопку Добавить.</span>
<span>Примечание. Можно также добавить команду Выполнить автоформат.</span>