Робот выполнил алгоритм, записанный ниже. После выполнения программы оказались закрашенными ровно 2 - id1242731020201219 от маша2521 19.12.2020 16:06

Question

Информатика: Робот выполнил алгоритм, записанный ниже. После выполнения программы оказались закрашенными ровно 2 клетки. Из какой клетки стартовал Робот (см. рисунок)? если слева свободно то закрасить влево если снизу свободно то закрасить вниз закрасить иначе закрасить все иначе закрасить все

маша2521 · Accepted Answer

//Видимо, это одна задача, так как изменения во второй не указаны //Pascal ABC.NET v3.1 сборка 1172 Const  n=20; Var  ar:array[1..n] of integer;  i:integer; begin  randomize;  writeln( First array: );   for i:=1 to n do    begin     ar[i]:=random(10)-3;     write(ar[i]:4);     if ar[i] 0 then ar[i]:=ar[i]*2 else ar[i]:=0;    end;  writeln;  writeln( Final array: );   for i:=1 to n do    write(ar[i]:4); end. Пример работы программы: First array:   2  -3   5   6  -3  -3   1  -2  -3   1   3  -3   4...

MOGZ ответил