ПРАВИЛЬНЫЙ ОТВЕТ 3. НУЖНО РЕШЕНИЕ
Пользователь работал с каталогом Декабрь. Сначала он поднялся на один
уровень вверх, потом спустился на один уровень вниз и ещё раз спустился на
один уровень вниз. В результате он оказался в
каталоге C:\Календарь\Зима\Январь\17\. Укажите полный путь каталога, с
которым пользователь начинал работу.
1) C:\Календарь\Декабрь\ 2) C:\Календарь\Зима\
3) C:\Календарь\Зима\Декабрь\ 4) C:\Календарь\Декабрь\17\

ответ: C:\Календарь\Зима\Декабрь\

Объяснение:

1)

const n=31;

var a: array[1..n] of integer;

i,s,k: integer;  

begin

randomize;

for i: =1 to n do

  begin

  a[i]: =random(41)-20;

  write(a[i]: 4);

  end;

writeln;

s: =0; k: =0;

for i: =1 to n do

  if a[i]> 0 then begin s: =s+a[i]; k: =k+1; end;

writeln('средняя температура дней с оттепелью = ',s/k: 4: 2);

end.

пример:

  -7   4 17-13 20 -8 12 11 15-17 -5 15-17 -4 14-12   3-20   6 -8-14 -8 18 17   6 -9 16 10 17 20-15

средняя температура дней с оттепелью = 13.00

2)

const m=10;

var a: array[1..m] of integer;

i,s: integer;  

begin

randomize;

for i: =1 to m do

  begin

  a[i]: =random(21);

  write(a[i]: 4);

  end;

writeln;

s: =0;

for i: =1 to m do 

  if i mod 2 = 1 then s: =s+a[i];

writeln('s = ',s);

for i: =1 to m do 

  if i mod 2 = 0 then a[i]: =s;

for i: =1 to m do write(a[i]: 4);

writeln;

end.

пример:

  14   9   0   8   6   2   2   16   1   16

s = 23

  14   23   0   23   6   23   2   23   1   23

подробнее - на -