Задан одномерный массив целых чисел. вычислить сумму значений элементов, значения которых меньше половины значения максимального элемента чисел, но больше половины минимального элемента.

Begin max: =a[1]; min: =a[1]; for i: =1 to n do begin if (a[i]> max) then max: =a[i]; if (a[i]< min) then min: =a[i]; end; for i: =1 to n do if ((a[i]< min/2) and (a[i]> min/2)) then writeln(a[i], " "); end.

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.