const n=9;
var marks:array[1..n,1..2] of 2..5;
i,k:integer;
begin
writeln('Оценки студентов:');
for i:=1 to n do
begin
marks[i,1]:=random(4)+2;
marks[i,2]:=random(4)+2;
writeln(i,': ',marks[i,1]:3,marks[i,2]:3);
end;
k:=0;
for i:=1 to n do
if (marks[i,1]+marks[i,2])/2<3 then k:=k+1;
writeln('Количество студентов, имеющих средний < 3 = ',k);
end.
Пример:
Оценки студентов:
1: 5 4
2: 5 4
3: 4 3
4: 5 5
5: 2 2
6: 2 3
7: 5 5
8: 3 4
9: 2 2
Количество студентов, имеющих средний < 3 = 3
ответ: Сместиться на (1, –1)
Чтобы узнать куда переместился Чертёжник надо сложить координаты по осям. Нужно умножить на количество повторов только координаты в цикле и добавить к ним движения после цикла.
Сложим координаты по оси X:
x =3 * (–2 + 3) + (–4)
x = 3 * 1 – 4
x = 3 – 4
x = –1
Сложим координаты по оси Y:
y = 3 * (–3 + 4) + (–2)
y = 3 * 1 – 2
y = 3 – 2
y = 1
Таким образом, Чертёжник окажется в точке (–1, 1). Следовательно, для того, чтобы Чертёжник вернулся в исходную точку ему нужно выполнить обратную команду Сместиться на (1, –1). (Чтобы Чертёжник вернулся в исходную точку координаты в сумме должны давать 0.)