Содержимое массива будет таким (по шагам):
0) 6 4 5 -1 2 0 4 -4 -2 1
1) 6 3 5 -1 2 0 4 -4 -2 1
2) 6 3 1 -1 2 0 4 -4 -2 1
3) 6 3 1 0 2 0 4 -4 -2 1
4) 6 3 1 0 2 0 4 -4 -2 1
5) 6 3 1 0 2 2 4 -4 -2 1
6) 6 3 1 0 2 2 -2 -4 -2 1
7) 6 3 1 0 2 2 -2 -4 -2 1
8) 6 3 1 0 2 2 -2 -4 3 1
Как можно видеть, после всех преобразований массива (на последнем шаге) он содержит шесть чётных чисел (6, 0, 2, 2, -2, -4).
Ответ: 6
Не существует деревянной клавиатуры
Const
K = 13;
Var
A:array[1..K] of integer;
i,S:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
S:=0;
i:=0;
Repeat
i:=i+1;
if A[i]>0 then
Repeat
S:=S+A[i];
i:=i+1
Until i>K;
Until i>=K;
WriteLn;
WriteLn('S = ',S);
End.
Как-то так
const x0=0; x1=180; dx=1;
var x:real;
begin
x:=x0;
while x<=x1 do
begin
writeln(x,' ',x/180*pi);
x:=x+dx;
end;
<span>end.</span>