Объяснение: Настольный теннис — олимпийский вид спорта, спортивная игра с мячом, в которой используют специальные ракетки и игровой стол, разграниченный сеткой пополам. Игра может проходить между двумя соперниками или двумя парами соперников. Задачей игроков является удерживать мяч в игре при ракеток — каждый игрок после одного отскока мяча на своей половине стола должен отправить мяч на половину стола соперника. Очко начисляется игроку или паре игроков, когда соперник не может вернуть мяч в соответствии с правилами. Каждая партия продолжается до 11 очков, матч состоит из нечётного количества партий, и играется на большинство побед в партиях.
я напишу для двохвымерного масива
Type Tabl = array [1..5,1..5] of integer;const A: Tabl = ((10,5,6,9,5) , (9,7,12,6,10), (5,4,8,9,11), (10,9,4,2,6), (8,4,6,9,5));var i,j:integer;var Ar,P: real;beginAr:=1;P:=0;for i:=1 to 5 do beginfor j:=1 to 5 dowrite (A[i,j]:3);writeln;end;for i:=1 to 5 dofor j:=1 to 5 do beginP:=A[i,j]+A[i,j];Ar:=(Ar+P)/25;write (Ar:5:2);end;writeln;end.
P.S. в константу можешь писать любые числа, которые придумаешь
Почти получилось, только со среднем арифметическим проблема
и должно быть записано все в таком порядке, как на втором скрине