Решите информатика 15 1) аня составила алгоритм, а коля стер в нем одну команду: использовать робот алг дано | стен на поле нет надо | робот погулял и вернулся в исходное положение нач вверх вправо вниз влево влево кон определите, какую команду стер коля, если известно, что при выполнении составленного аней алгоритма робот возвращался в исходное положение. введите только название команды без пробелов и других знаков препинания. 2) запись a[i] обозначает: набор элементов массива а с номерами (индексами) от 1 до i массив а из i элементов. набор элементов массива а с номерами (индексами) от 0 до i элемент массива a с номером (индексом) i 3) сколько ячеек памяти будет отведено для хранения массива a, заданного таким образом var a: array[-5..10] of integer; ?
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 потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно