uses robot;
begin
task('cif18');
Right;
while CellIsPainted do Right;
Down;
if CellIsPainted then Up else Left;
end.
В сетевых базах данные представлены в виде дерева.
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -20, 25);
a.Println;
Println('Номер минимального элемента', a.IndexMin + 1)
end.
Выполнится 2 раза.
в итоге:
R:=2;
G:=3;
<span>будут равны.</span>