Паскаль: в одномерном массиве а вычислить среднее арифметическое максимума и минимума элемента, найденым значениям заменить последними пятью элементами массива

Зрение; с глаз люди различают цвета, воспринимают зрительную информацию, к которой относятся и текстовая, и числовая, и графическая; слух; уши воспринимать звуковую информацию – речь, музыку, звуковые сигналы, шум; обоняние; с носа люди получают информацию о запахах окружающего мира; вкус; вкусовые рецепторы языка возможность получить информацию о том, каков предмет на вкус – горький, кислый, сладкий, соленый; осязание; кончиками пальцев (или просто кожей), наощупь можно получить информацию о температуре предмета – горячий он или холодный, о качестве его поверхности – гладкий или шершавый.

 

Заменяет в строке var   s : string;   i, lim : integer; begin   readln (s);   i : = 1;   lim : = length (s);   while (i < = lim) do   begin     if s[i] in ['1'..'9'] then     begin       if (s[i] = '1') and (i < > length (s)) and (s[i+1] ='0') then       begin         write ('ten');         inc (i);       end       else       case s[i] of         '1' : write ('one');         '2' : write ('two');         '3' : write ('three');         '4' : write ('four');         '5' : write ('five');         '6' : write ('six');         '7' : write ('seven');         '8' : write ('eight');         '9' : write ('nine');       end;     end     else write (s[i]);     inc (i);   end; end.