2, 3, 5, 8, 13, 21, 34, 55, 89
Есть переменная, равная 0 и есть цикл в котором сравнивается поочередно значения из массива и эта переменная, если значение переменной меньше, то переменная принимает значение данного элемента массива.
В итоге переменная содержит самое большое значение из массива.
Панда """"""""""""""""""""""""≠
Var
i,s,n:integer;
begin
n:=0; s:=0;
for i:=0 to 99 do
if i>9 then
if i div 10 > i mod 10 then begin
n:=n+1; s:=s+i;
end;
Writeln('Сумма ',s,', ср. арифметическое ',s/n)
end.
<u>Результат</u>
Сумма 2970, ср. арифметическое 66