Ответ: 1
Смотри схему.
Сначала пишем название каталога с которого начинал пользователь и стрелочками иллюстрируем его путь. В данном случае 2 уровня вверх и 1 вниз. (Черный цвет)
Потом из полного пути каталога в котором он оказался (C:\2012\Текст\Таблицы) заполняем от конца к началу. (Красный цвет)
Т.к. выше Текст пользователь не поднимался то до Текста (включительно) путь остаётся без изменений: C:\2012\Текст
По схеме видно, что между Текст и Работа1 должен находится ещё один элемент пути (на схеме ?), т,е. путь имеет вид C:\2012\Текст\?\Работа1
Под этот вид подходит только ответ под цифрой 1.
var mas:array[0..9] of integer;
i,max,min,k:integer;
arifm:real;
begin
k:=0;
arifm:=0;
Randomize;
for i:=0 to 9 do
mas[i]:=Random(15);
for i:=0 to 9 do
write(mas[i],' ');
{poisk max}
max:=mas[0];
for i:=1 to 9 do
if max<mas[i] then
max:=mas[i];
{poisk min}
min:=mas[0];
for i:=1 to 9 do
if min>mas[i] then
min:=mas[i];
arifm:=(max+min)/2;
writeln('max: ',max);
writeln('min: ',min);
writeln('arifm: ',arifm:0:3);
for i:=0 to 9 do
if mas[i]<arifm then
inc(k);
writeln('k: ',k);
readln;
end.
Ответ в файле:
VVVVVVVVVVVVVVVVVVVV
1 бит т.к красных и черных в колоде одинаковое кол-во.
В лучший ответ пожалуйста, 2 до отличника не хватает