Ответ:1)C:\Календарь\Декабрь.
1.Поднялся, оказался в C:\Календарь
2.2 раза опустился и оказался в <span>C:\Календарь\Зима\Январь\17\ (17 выделено с двух сторон, а значит это не каталог).</span>
var
a: array [1..10] of integer;
x,i: integer;
begin
writeln('Заполните массив: ');
for i:=1 to 10 do read(a[i]);
x:=a[3];
a[3]:=a[9];
a[9]:=x;
for i:=1 to 10 do write(a[i]:4);
<span>end.</span>
из 0 к 21:
плюс 1,плюс 1,умножить на 2,плюс 1,умножить на 2,умножить на 2,плюс 1
из 0 к 25
плюс 1, плюс 1,плюс 1,умножить на 2,умножить на 2,умножить на 2,плюс 1
из 0 к 28
плюс 1,плюс 1,плюс 1,умножить на 2,плюс 1,умножить на 2,умножить на 2
Program chet;
uses crt;
var N, a, b, c:Integer;
begin
a:=0;
Write('Сколько чисел будем вводить? ');
ReadLn(N);
for b:=1 to n do
begin
Write('Введите число номер ', b, ': ');
Readln(c);
if c mod 2 = 0 then
begin write(' - это чётное число, берём его!');
a:=a+c;
WriteLn('Текущая сумма равна ', a);
end
end;
Writeln('----------');
Write('Итоговая сумма чётных чисел: ', a);
readln;
end.