Const n=10; Var a:array[1..n] of integer; i:integer; Begin i:=1; While i<=10 do begin Readln(a[i]) If a[i] >0 then begin writeln(a[i]) ; i:=i+n; end; i:=i+1; end; end.
В конце всего пути ученик оказался на уровне D:\Comp\Логика\Таблицы. По условию сказано что до этого он опустился на уровень вниз сначала один раз, а потом второй, значит просто поднимем его по каталогу на 2 уровня и он окажется в каталоге D:\Comp, в который, как говориться в условии, он до этого поднялся, а это значит что нам достаточно опуститься, чтобы получить ответ : D:\Comp\Билеты.
Как вы поняли, путь каталога, с которым он работал изначально выглядит как: D:\Comp\Билеты , что и будет являться ответом.
Var a:array[1..n] of integer; i:integer;
Begin
i:=1;
While i<=10 do begin
Readln(a[i])
If a[i] >0 then begin
writeln(a[i]) ;
i:=i+n;
end;
i:=i+1;
end;
end.