Составить процедуру : начав тренировки, спортсмен в первый день пробежал 10 км. каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. составьте процедуру расчета, через сколько дней спортсмен пробежит суммарный путь 100 км ?

3 носка,т.к. среди них точно есть пара(в числе 3 есть число 2)

var a: integer; beginreadln(a); write (a div 10); end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.