Бутылка уравновешивается на чашечных весах тарелкой и стаканом, два кувшина уравновешиваются тремя тарелками, бутылка и стакан уравновешиваются кувшином. сколько стаканов уравновешивают бутылку? а)5. в)3. с) нет точного ответа. д2 е6)

По моим подсчетам 5 стаканов

Var a: array [1..10] of integer; i,max: integer; begin for i: =1 to 10 do readln a[i]; max: =a[1]; for i: =2 to 10 do if a[i]> max then max: =a[i]; for i: =1 to 10 do begin if a[i]> 0 then a[i]: =max; if a[i] > 0 then a[i]: =i; end; for i: =1 to 10 do  writeln( a[i]); end.   1. заполняем массив из 10 элементов 2 считаем условно что первый элемент максимальный 3 в цикле начиная со второго элемента находим максимальный элемент 4 осуществляем преобразования в цикле с учётом условия 5 раз у нас на замену то осуществляем вывод массива чтобы просмотреть его элементы

Var n,p,m,max1,max2,im1,im2,i: integer; begin randomize; n: =347000; max1: =0; max2: =0; for i: =2017 to 2025 do   begin   p: =round(n*(2*random+1.5)/100);   m: =round(n*(2.5*random+0.5)/100);   if p> max1 then begin max1: =p; im1: =i; end;   if m> max2 then begin max2: =p; im2: =i; end;   n: =n+p-m;   writeln(i,': n = ',n);   end; writeln('наибольший прирост = ',max1,', ',im1,' год'); writeln('наибольшая убыль = ',max2,', ',im2,' год'); end. пример: 2017: n = 345558 2018: n = 349922 2019: n = 353532 2020: n = 356979 2021: n = 364842 2022: n = 371614 2023: n = 381020 2024: n = 389903 2025: n = 388485 наибольший прирост = 11702, 2023 год наибольшая убыль = 10701, 2020 год