Код на PascalABC.Net дан в приложении.
Ответ:
program xxxxx;
uses crt;
var
k,i:integer;
s:real;
a:array[1..5] of integer;
begin
for i:=1 to 5 do
readln(a[i]);
if a[i] < 0 then begin
s:=s+a[i];
k:=k+1;
end;
if k=0 then writeln('error')
else writeln(s/k);
end.
Объяснение:
1023в10 = 33333в4
453в10 = 121210в3
239в10 = 11101111в2
44.
Надеюсь помог вам.