program z1;
var a:array[1..2,1..4] of integer;
i,j,mi,mj:integer;
begin
mi:=1;
mj:=1;
writeln('Массив: ');
for i:= 1 to 2 do
begin
for j:= 1 to 4 do
begin
a[i,j]:=random (10);
write(a[i,j]:3);
if a[i,j]<a[mi,mj] then
begin
mi:=i;
mj:=j
end
end;
writeln;
end;
writeln;
writeln('Наименьший элемент массива a[',mi,',',mj,'] = ',a[mi,mj])
end.
Объяснение:
Сразу работаем с индексами массива. Сначала предполагаем, что первый элемент массива и есть наименьший, сравниваем с ним остальные, если они меньше, то меняем индексы наименьшего элемента.
Если наименьших индексов больше одного, то на экран будет выведено расположение первого.
Объяснение: Настольный теннис — олимпийский вид спорта, спортивная игра с мячом, в которой используют специальные ракетки и игровой стол, разграниченный сеткой пополам. Игра может проходить между двумя соперниками или двумя парами соперников. Задачей игроков является удерживать мяч в игре при ракеток — каждый игрок после одного отскока мяча на своей половине стола должен отправить мяч на половину стола соперника. Очко начисляется игроку или паре игроков, когда соперник не может вернуть мяч в соответствии с правилами. Каждая партия продолжается до 11 очков, матч состоит из нечётного количества партий, и играется на большинство побед в партиях.