в чем смысл этой писанины ? цикл for прогоняет все индексы , а соответсна и все значения массива
и сравнивает значения каждого следующего индекса ( типо сначала значение А [1] , потом A [2] и так до 9 индекса ) со значением А[0] , которое сначала по условию 1
потом грубо говоря строки t:=A[i]; и A[0]:=t; можно заменить на A[0]:=A[i]; ( логично ж ) и наш изначальный A[0] будет принимать значение A[i] ( если выполнится if конечно же )
ДАЛЬШЕ ПРОГОНИМ ( это единственная более-менее полезная часть объяснения )
сначала заметь , что индексы идут от 1 до 9 ( а в условии индексы от 0 до 9)
смотрим : значение А [1] > А[0] ? ( т.е. 2 больше 1 ?) - да! , к c прибавляем единичку , a A[0] теперь не 1 , а 2.
аналогичные действия выполняем до 6 ( по значениям смысле) , на этот момент c должно быть равно 3
дальше будут числа меньше ( 5,0 , 4)
а потом по аналогии продолжаем , ведь 8 больше 6 ( опять же, я уже не обращаю внимания на индексы , ведь оно нам и не надо )
8 > 6 ? => c:= c+1 = 3 + 1 = 4 ; A[0]:=8
9> 8 ? => c:= c+1 =4 + 1 = 5; A[0]:= 9
дальше идти не будет ( 7 меньше 9 ) и программа прервется
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие. Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin var s1:=ReadReal('Площадь квадрата'); var s2:=ReadReal('Площадь круга'); if pi*s1<2*s2 then Writeln('Квадрат умещается в круге') else Writeln('Квадрат не умещается в круге') end.
Тестовое решение: Площадь квадрата 24.6 Площадь круга 28.4 Квадрат не умещается в круге
короче больше перемудрили , смотри
у тебя есть массив A
i - это индексы ес что , A[i] эт значения
в чем смысл этой писанины ? цикл for прогоняет все индексы , а соответсна и все значения массива
и сравнивает значения каждого следующего индекса ( типо сначала значение А [1] , потом A [2] и так до 9 индекса ) со значением А[0] , которое сначала по условию 1
потом грубо говоря строки t:=A[i]; и A[0]:=t; можно заменить на A[0]:=A[i]; ( логично ж ) и наш изначальный A[0] будет принимать значение A[i] ( если выполнится if конечно же )
ДАЛЬШЕ ПРОГОНИМ ( это единственная более-менее полезная часть объяснения )
сначала заметь , что индексы идут от 1 до 9 ( а в условии индексы от 0 до 9)
смотрим : значение А [1] > А[0] ? ( т.е. 2 больше 1 ?) - да! , к c прибавляем единичку , a A[0] теперь не 1 , а 2.
аналогичные действия выполняем до 6 ( по значениям смысле) , на этот момент c должно быть равно 3
дальше будут числа меньше ( 5,0 , 4)
а потом по аналогии продолжаем , ведь 8 больше 6 ( опять же, я уже не обращаю внимания на индексы , ведь оно нам и не надо )
8 > 6 ? => c:= c+1 = 3 + 1 = 4 ; A[0]:=8
9> 8 ? => c:= c+1 =4 + 1 = 5; A[0]:= 9
дальше идти не будет ( 7 меньше 9 ) и программа прервется
в ответ улетает 5