Ответ на вопрос по информатике собственная (внутренняя) память человека

Биологическая(собственная) память 

Int mass1[n], mass2[m]; int min = 0, buff = 0, index; //сначала находим min элемент for (int i = 1; i < n; i++) {     if (mass1[i - 1] > mass1[i])     {         min  = mass1[i];         index = i;     } } //меняем их местами buff = mass1[0]; mass1[0] = min; mass1[index] = buff; //ищем min во втором массиве for (int i = 1; i < n; i++) {     if (mass2[i - 1] > mass2[i])     {         min = mass2[i];         index = i;     } } //меняем их местами buff = mass2[0]; mass2[0] = min; mass2[index] = buff; ну а дальше с библиотеками и выводом я думаю сам додумаешь)

Var   mean, count, n: real;   i: byte; begin   mean : = 0;   count : = 0;     for i : = 1 to 10 do   begin       readln(n);       if (( n < = 18 ) and ( n > =-5 )) then       begin           mean : = mean + n;           count : = count + 1;       end;   end;     mean : = mean / count;   writeln('среднее арифметическое = ', mean); end.