Дана матрица размера m × n. в каждом ее столбце найти количество элементов, больших среднего арифметического всех элементов этого столбца. 20 ! надо решить. это паскаль.

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.)